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imaDucnoN 


A  coospller  is  a  program  which  translates  a  hl^er  level  language  called  the 
source  language,  in  which  the  solution  to  a  prdblem  is  esqpressed,  into  a 
machine  code  representation  of  this  solution  called  the  object  or  target 
language. 

It  is  readily  appeu:ent  that  a  compiler  is  an  automatic  coding  device  which 
performs  a  necessary,  albeit  tedious,  part  of  the  tsisk  of  obtaining  a  machine 
solution.  Since  compilers  are  expensive  programs  to  write  and  JOVIAL  com¬ 
pilers  were  to  exist  on  several  machines,  they  were  divided  into  two  parts. 
The  first  part  is  called  the  generator,  and  is  essentially  the  same  program 
for  all  cooq;>uters.  The  second  part  is  called  the  translator  cuod  a  new  one 
is  written  for  each  computer.  The  generator  ixqputs  JOVIAL  source  language 
and  produces  the  Intermediate  language  and  dictionaries.  The  translator 
takes  the  output  of  the  generator  and  outputs  machine  code,  mie  generator 
is  actually  divided  into  two  passes  which  are  described  in  detail  on  the 
following  pages. 
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OVERVIEW  OF  THE  JOVIAL-3  CCMPILERS 
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DESCRIPnON  OF  PHASE  I  OF  THE  JOVIAL  CSNERATGR 


A.  GENERAL  DESCRIPTION 

Generator  Phase  I  looks  at  the  JOVIAL  source  program  and  encodes  numerically 
the  information  contained  In  the  source  program.  This  Information  is  stored  In 
a  series  of  tables  vhlch  are  passed  on  to  Generator  Phase  II  for  further  pro¬ 
cessing.  Phase  I  Is  made  up  of  a  series  of  procedures  uhlch  are  described 
beloVj  and  a  main  program. 

Generator  Phase  I  may  be  divided  Into  two  sections;  the  first  processes  qpera- 
tors>  separators,  and  brackets;  l.e.,  those  parts  of  speech  which  are  Immediately 
identifiable.  The  second  section  processes  Identifiers  (item  names,  table  names, 
etc.)  and  constants. 

The  JOVIAL  source  language  program  is  processed  one  part  of  speech  at  a  time, 
either  by  section  one  or  two,  depending  upon  the  kind  of  part  of  speech  encounter¬ 
ed.  As  each  part  of  s'^eech  is  processed,  an  entry  is  made  for  it  in  the  Card 
Analysis  Table  (CAT).  If  the  part  of  speech  is  an  identifier  processed  by  the 
second  section  of  Phase  I,  a  reference  to  an  entry  in  the  Dictionary  Table 
(DICT)  is  put  in  CAT,  and  in  some  cases  entries  are  made  in  other  tables  described 
below.  As  each  new  identifier  is  encountered  by  section  two,  an  entry  is  made 
in  DICT. 

Hie  final  output  of  Phase  I  is  the  CAT,  DICT  and  other  related  tables.  Hie  CAT 
contains  a  binary  encoding  of  each  part  of  speech  in  the  source  program.  In 
other  words,  CAT  may  be  thought  of  as  a  binary  replica  of  the  statements  in  the 
source  progrcun.  Did  contains  information  about  the  identifiers  and  constants 
used  in  the  source  program  (type  of  constant,  number  of  bits  in  a  variable, 
etc . ) . 

Each  part  of  speech  being  processed  is  viewed  as  the  middle  term  of  a  set  of 
three;  the  left  term  of  the  triplet  having  been  processed  already  and  the  right 
term  waiting  to  be  processed  next.  When  a  declaration  is  encountered,  the 
triplet  scheme  is  abcuidoned  tetoporarlly  and  the  declaration  is  processed  until 
its  end  when  the  triplet  method  is  resumed.  For  each  possible  left  and  rl^t 
term  combination  there  is  an  entry  in  the  triplet  legality  matrix  table  (MHQC 
or  mat) .  This  entry  indicates  vhat  kind  of  term  may  be  found  legally  as  the 
middle  term  of  the  triplet  in  question.  For  exaoqple,  the  first  section  of 
Phase  I  can  detect  a  procedure  name  using  the  triplet  scheme.  The  information 
that  a  procedure  name  has  been  found  is  passed  on  to  section  two,  and  the 
appropriate  reference  in  the  dictionary  is  found  emd  returned  to  be  stored  in 
GAT.  However,  section  one  cannot  discriminate  between  a  simple  item,  a  file 
name,  the  beginning  of  a  declaration  etc.  As  much  information  as  is  available 
is  passed  on  to  section  two  and  further  analysis  is  done,  and  the  resulting 
dictionary  reference  returned. 
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The  entire  JOVIAL  source  program  Is  processed  in  this  manner,  with  special 
consideration  being  given  to  DIRECT  code  statements,  DEFINE  declarations,  etc. 


ihput/output 

The  Input  to  Generator  Phase  I  Is  the  JOVIAL  source  language  program  vhich  Is  to 
be  compiled,  read  In  from  the  HIN. 

The  output  from  Generator  Phase  I  is  the  tables  CAT,  DICT,  OVER,  DISH  and  the 
STC  variable  IDNS,  the  direct  code  file  DIRCT,  and  a  listing  of  the  JOVIAL 
source  program  which  Includes  error  printouts.  The  listing  may  also  contain  a 
print  of  CAT  euid/or  DICT  if  indicated. 


RESTRICTIONS 

1.  The  following  tables  are  restricted  to  the  number  of  entries  specified 
under  Machine  Dependencies: 


PURE  (number  of  library  procedures) 
uimamed  table  with  items  KDA,  KDB,  KDC  (number  of  define  declarations) 

FIND  (level  of  nesting  of  modifiers) 

STAT  (number  of  status  constants) 

OVER  (number  of  overlay  declarations) 
DICT  (number  of  dictionary  entries) 
unnamed  table  with  item  CARD  (number  of  characters  of  defined 

information  which  may  be  nested) 

2.  The  following  variables  are  restricted  to  the  nuinber  of  characters  specified 
voider  Machine  Dependencies: 

IDNS  (all  identifiers  and  constants) 

KD  (contains  defined  identifiers  and  their  definitions) 

3.  A  Hollerith  or  STC  variable  with  preset  data  is  restricted  to  120  characters. 

4.  All  procedure  declarations  must  be  bracketed  with  BEGIN  -  END;  l.e.,  even 
a  one  statement  procedure  must  have  brackets. 


No  circular  define  statements  are  permissible;  l.e.,  the  following  is  not 
allowable : 

DEFINE  AA  "CC  =  DD  $  ’ '  $ 

DEFINE  DD  "AA  ->■  BB  "  $ 

or 

DEFINE  XX  "XX  "  $ 
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6.  The  ASSIGN  and  JOVIAL  operators  must  be  preceded  by  a  blank  column,  or 
begin  in  the  first  column  of  a  card. 
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B.  GLOSSm 

Item,  Table,  Procedure,  Parameter,  Switch,  and  File  Descriptions 
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AA  Input  Parameter  Local  Used  by:  KCOD 

Input  parameter  which  contains  number  to  be  converted. 

AA  Input  Parameter  Local  Used  by:  DTOB 

Input  parameter  which  contains  number  to  be  converted. 

AA  Item  Local  Used  by:  PDICT 

Contflilns  the  first  dictionary  entry  to  be  printed. 

AA  Item  Local  Used  by:  KUV 

Keeps  track  of  entry  In  table  overlayed  with  IDIIT. 

AA  Item  Loceil  Used  by:  TSTIN 

Keeps  track  of  entry  In  table  overlayed  with  TSIR. 

ABL£  Switch  Local  Used  by:  LOOK 

Switch  entered  with  Input  parameter  to  LOOK. 

0  =  SWO  (not  used) 

1  «  StfO  (not  used) 

2  -  NOHH  (get  next  part  of  speech) 
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BOAT  File  Express  Used  by:  Mein  program 

File  on  which  the  binary  CAT  table  for  main  program  is  output. 

BCATP  File  Express  Used  by:  Main  program 

File  on  which  the  binary  CAT  table  for  procedures  is  output. 

BCE  Table  Contains  items:  DELIM,  EXTRA,  CLASS,  fOBN.,  KVAL,  WOHIH 

Express  Used  by:  Main  program 

Table  which  contains  class,  form,  K1  value  etc.  for  separators, 
operators,  brackets,  and  modifiers  etc. 

BF  Item  Local  Used  by:  CAN 

In  processing,  if  decimal  points  are  in  the  constant,  they  are  resnved. 
BF  is  \ised  as  a  bviffer  for  transferring  a  portion  of  the  constant  and 
overlaying  the  period  while  keeping  track  of  its  position  for  the  E 
factor . 

BIND  Subscripted  item  from  table  FIND  Express  Used  by:  ttein  program 

Item  in  table  FIND  which  is  used  to  store  counts  of  parenthesis  while 
analyzing  nested  functional  modifiers. 

BINBY  Output  Parameter  Local  Used  by:  BINRY 

Variable  containing  the  output  of  the  function  BINRY 

BINRY  Procedure 

Procedure  which  converts  an  STC  integer  to  binary. 

BKCT  Item  Express  Used  by:  IQITER^ 

Main  program 

Used  to  count  nusiber  of  parenthesis  and  subscript  brackets  when 
processing  switch  declarations. 

BLI  Item  Express  Used  by:  MP 

Boolean  item  used  when  processing  direct  code  and  scanning  card  image 
for  ASSIGN  or  JOVIAL  operators.  Set  to  0  when  a  blank  is  found  and  to 
1  when  a  non-blank  is  found. 

BRCN  Subscripted  item  from  unnamed  table  Local  Used  by:  LOOK 

Holds  bracket  count  for  one  type  of  bracket  as  each  JOVIAL  statement 
is  processed. 

BRCTR  Item  Express  Used  by:  Main  program 

Couuiter  for  BEGINS  and  ENDs  in  procedure. 
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BRGT  Subscripted  item  from  table  OICT  Express  Used  by:  FOICT,  IDEAL, 

POOL 

For  fixed-point  constants  and  variables: 

If  positive  -  specifies  the  number  of  bits  succeeding  the  binary 
point. 

If  negative  -  specifies  the  number  of  bits  between  the  least 
significant  bit  and  the  binary  point. 

For  status  variables: 

Contains  the  index  to  the  STAT  table  entry  which  cross-references 
the  storage  of  associated  stati. 

BROm  Subscripted  item  from  table  DICOl  Ibqpress  Used  by:  IMP,  SCON, 

CAN 

Parallel  to  BRGT  in  the  dictionary,  bits  right. 

BRT  ITEM  Local  Used  by:  CAIf 

Bits  ri£^t.  With  A  type  dual  constants,  BRT  is  used  to  test  whether 
or  not  the  bits  on  the  right  are  equal  to  those  on  the  left. 

BTOD  Ouptut  Parameter  Local  Used  by:  BTOD 

STC  variable  containing  the  output  of  the  function  BTOD. 

BTOD  Procedure 

Procedure  which  converts  a  binary  integer  to  STC. 
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CAN  Procedure 

Procedure  which  analyzes  constants  and  exits  with  the  constant 
converted  to  conform  with  its  TXFV  or  the  TXPV  of  the  item  with 
which  it  is  associated. 

CARD  Subscripted  item  frca  unnamed  table  Express  Used  by:  L00K>  TBIINf 

Main  program 

Contains  one  character  in  STC  from  the  card  image  read  into  TSTR. 

CAT  Table  Contains  items:  CAIA,  CATB,  CATC,  CATE,  CATF 

Express  Used  by:  MP 

Table  which  contains  binary  encoding  of  the  JOVIAL  source  program. 

CATA  Subscripted  item  from  table  CAT  Express  Used  by:  MP 

Boolean  item  which  contains  sign.  Used  primarily  by  Generator 
Phase  II. 

0  =  + 

1  *  - 

GATE  Subscripted  item  from  table  CAT  Express  Used  by:  MP,  RECRD 

Contains  modifier. 

0  =  HULL  k  =  CHAR  8  =  POS 

1  »  KENT  ^  =  MANT  9  »  SIGN 

2=ENT  6  =  ABS  10  =  odd 

3  =  NWDSEN  7  =  ALL 

CATC  Subscripted  item  from  table  CAT  Express  Used  ’’  :  ENTER,  LOCK, 

MP,  RECRD, 
TSTIM 

Contains  class.  See  CATF  for  details. 

CATE  Subscripted  item  from  table  CAT  Express  Used  by:  MP 

Contains  level  in  Generator  Phase  II.  Used  only  with  class  of  I7  in 
Generator  I  when  it  contains  number  of  cards  of  direct  code. 
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CAN  Procedure 

Procedure  which  analyzes  constants  and  exits  with  the  constant 
converted  to  conform  with  its  HYPV  or  the  TXFV  of  the  Item  with 
which  It  is  associated* 

CARD  Subscripted  item  frcm  uzmamed  table  Express  Used  by:  LOOKi  TSTIM, 

Main  program 

Contains  one  character  In  STC  from  the  card  image  read  into  TSTR. 

CAT  Table  Contains  items:  CATA,  CATB,  CATC>  CATE,  CATF 

Express  Used  by:  MP 

Table  which  contains  bixxucy  encoding  of  the  JOVIAL  source  program. 


CATA 

Subscripted  item  from  table  CAT 

Express 

Used  by: 

MP 

Boolean  item  which  contains  sign. 
Phase  II. 

Used  primarily  by  Generator 

+  1 

11  II 

0  r-t 

CATB 

Subscripted  item  from  table  CAT 

Contains  modifier. 

Express 

Used  by: 

MP,  RECRD 

0  =  NULL  4  «  CHAR 

1  =  RENT  5  =  MART 

2  =  ENT  6  »  ABS 

3  =  NWDSEN  7  »  ALL 

8  =  POS 

9  =  SIGN 

10  =  ODD 

CATC 

Subscripted  item  from  table  CAT 

Express 

Used  by: 

ENTER,  LOOK, 
MP,  RECRD, 
TSTIM 

Contains  class.  See  CATF  for  details. 

CATE 

Subscripted  item  ffom  table  CAT 

Express 

Used  by: 

MP 

Contains  level  in  Generator  Phase  II.  Used  only  with  class  of  17  in 
Generator  I  when  it  contains  number  of  cards  of  direct  code. 
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CKTF  Subscripted  Item  from 


Contains  form. 
CLASS 

0  «  NULL 

1  =  SLAB 

2  a  Fm 

3  »  CONS 

4  »  VARB 
3  »  SVAR 

6  =  PROC 

7  =  SUBS 

8  »  SEQU 


9  »  SEPR 


10  =  BRAK 


11  =  LOGO 

12  »  RELO 

13  =  ARIO 


14  «  DECL 
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CAT  Express  Used  by:  MP,  ENTER, 


RECRD,  TSTIMj 
LOOK 

FOBM 

Channel  In  dictionary 

Channel  in  dictionary 

Channel  in  dictionary 

Channel  in  dlctionaury 

Channel  in  dictionary 

Channel  in  dictionsu:y 

1  thru  26 

0  «  IP 

4  =  FOR 

1  »  IFEITH 

3  X  RETURN 

2  =  GRIP 

6  =  STOP 

3  X  GOTO 

7  X  test 

0  =  . 

3  X  «= 

1  =  > 

2  *  = 

5  X  ... 

0  »  ( 

6  =  START 

1  =  ) 

7  X  term 

2  X  ($ 

8  -  RESERVED 

3  X  $) 

9  X  double  prime 

4  -  SGIN 

10  -  RESERVED 

^  -  END 

0  -  AND 

1  «  OR 

2  =  ROT 

11  X  RESERVED 

0  »  LS 

1  »  EQ 

2  =  lA 

0  =  + 

1  =  - 
2  =  * 

3  =  / 

0  =  SWITCH 

1  =  PROC 

2  »  CLOSE 

3  »  ITm 

4  X  TABIE 
3  X  ARRAY 

1 


3  X  GR 

4-114 

5  =  OQ 

4  s  #« 

5  X  OP 

6  -  MINUS 

7  X  ABS 

6  -  OVERLAY 

7  X  PIIB 

8  -  MODE 

9  X  define 

10  -  STRINO 

11  -  ALPHA 
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CB 

CDCLl 

CDCT 


GDI 


CDIT 


15  -  lOUT 

16  -  BEAD 

17  -  DIRECT 

18  -  TEMP 

19  x  GLAB 

20  -  A( 


Item 


0  -  INPUT  3  ■  OPEN  OUTPUT 

1  ■  OUTPUT  4  ■  SHUT  IHPOT 

2  ■  open;  output  5  ■  shut  output 

0  ■  BYTE 
1  -  BIT 
0  -  BEAD 

FIRST  CARD  NUMBER  (CATE  -  NUMBER 
OF  CARDS) 


BITS  TO  THE  RIGHT  OF  THE  BINARY 
POINT  (UNSIGNED)  ALL  ONES  FOR 
FLOATING  POINT. 

Local  Uaed  by:  £0(BC 


Boolean  Item  set  to  1  vhen  a  constant  is  being  paroeessed. 

Item  Express  Used  by:  MP,  T8TIM 

Set  equal  CMPTR*1. 

Item  Express  Used  by:  MP 

Counter  which  contains  the  total  number  of  cards  of  direct  code 
which  have  been  encountered. 


Item  Eaqpress  Used  by:  TOOK,  Main 

program 

Contains  beginning  location  In  table  containing  Item  CARD  into  which 
to  place  a  definition  when  a  defined  identifier  is  encountered. 


Item  Local  Used  by:  I^K 

When  processing  a  defined  variable,  set  to  last  location  in  table 
containing  item  CARD  which  will  contain  a  character  tram  the  unpacked 
definition. 


CED  Table  Contains  item:  VLUE  Express  Used  by:  MP 

Table  of  preset  data  which  contains  the  K1  values  which  iaasediately 
precede  a  unary  operator. 

Item  Express  Used  by:  MP 

Contains  dictlomry  channel  given  to  procedure  which  is  called  In 
from  the  library  tape,  but  not  called  in  the  JOVIAL  source  program. 


CHAN 
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CHAR  Item  Express  Used  by:  LOOK,  MUV 

STC  variable  containing  the  character  being  examined  currently. 

CHCT  Item  Local  Used  by:  ILOOK 

Contains  the  nvunber  of  characters  In  the  constant  or  Identifier 

being  processed. 

CHLl  Subscripted  Item  from  table  DICT  Express  Used  by:  PDICT,  IDEAL, 

POOL 

If  CLAS  equals  constant  and  SIND  eqxial  1  and  the  nearest  preceding 
non- constant  entry  Is  a  siibscrlpted  Item  or  array: 

Specifies  the  number  of  constants  (in  this  row). 

If  CLAS  equals  Item,  subscripted  Item  or  array  and  RlfGI  equals  1: 
Specifies  the  first  character  byte  In  Item  IDNS  of  the  specified 
range  values. 

If  CLAS  equals  string: 

Specifies  the  Index  Increment  to  the  next  word  of  this  entry 
containing  beads. 

If  CLAS  equals  table: 

Specifies  the  number  of  entries  In  the  table. 

If  CLAS  equals  procedure: 

Specifies  the  DICT  entry  number  of  the  first  variable  associated 
with  the  procedure  (0  «  undeclared  procedure). 

If  CLAS  equals  file; 

Specifies  the  maximum  nuniber  of  bits/bytes. 

If  CLAS  equals  switch; 

Specifies  the  DICT  entry  number  of  the  associated  Item. 

If  CLAS  equals  statement  label  and  this  Is  an  undefined  statement 
label  in  procedure; 

Contains  the  DICT  channel  of  this  statement  label  if  It  Is  esqpress. 

CHLIM  Subscripted  item  from  table  DICTM  Express  Used  by:  PDICT,  IDEAL, 

POOL,  Main 
Program 

Parallel  to  CHLl  in  the  dictionary. 


10  July  1962 


19 


04-555/020/00 


CKIi2  Subscripted  item  from  table  DICT  Express  Used  by:  PDICT> 

POOL,  Haln 
program 

If  CIAS  equals  procedure: 

Specifies  the  number  of  DICT  entries  associated  with  the 
procedure . 

If  CIAS  equals  file: 

Specifies  the  first  byte  in  item  IDES  of  the  hardware  label. 

If  CIAS  equals  Item/numerlc  switch: 

Specifies  the  number  of  switch  points. 

If  CIAS  equals  array: 

Specifies  the  DIME  entry  number  containing  the  first  dimension 
of  the  array  (successive  dimensions  are  in  successive  entries). 

If  CIAS  equals  table  and  DEFN  not  equal  2: 

Specifies  the  n\nnber  of  associated  DICT  entries. 

If  CIAS  equals  string: 

Specifies  the  number  of  beads  per  word. 

If  CIAS  equals  constant  and  SIND  equals  1  and  the  nearest  preceding 
non-constant  entry  is  array: 

Specifies  the  DICT  entry  of  the  associated  array. 

CHIi2M  Subscripted  item  from  table  DICTM  Express  Used  by:  IMP 

Parallel  to  CHI2  in  the  dictionary. 

CHNL  Output  Psorameter  Local  Used  by:  IDEAL 

Contains  the  dictionary  channel  number. 

CHR  Item  Local  Used  by:  GS1T2 

STC  variable  used  for  testing  and  storage  of  an  STC  "+"  or 

CHKT  Procedixre 

Procedure  which  reverses  the  index  to  IDNT. 
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CIAS 


CIASM 

cuss 


cuss 


Subscripted  Item  from  table  DICT 

Specifies  the  class  of  the  entry: 

0  =  null 

1  s  statement  label 

2  =  file 

3  =  constemt 

U  =  sloqple  item 
3  =  subscripted  item 
6  =  procedure/function 

Subscripted  item  from  table  DIdM 
Parallel  to  CUS  in  the  dictionary 

Subscripted  item  from  table  BCE 

For  each  part  of  speech  in  BCE, 
in  CATC. 

Subscripted  item 


E3q>re8s  Used  by:  FDICT,  IDEAL, 

POOL 


7  =  table 

8  =  array 

9  ■  item  switch 

10  >  numeric  switch 

11  s  close 

12  s  coopool  program 

13  string  variable 

Express  Used  by:  IMP,  HffiAL 


Express  Used  by:  MP 
IS  contains  the  value  which  goes 


Local  Used  by:  PDICT 


STC  variable  in  an  unnamed  table  containing  preset  data,  which 
gives  a  mnemonic  name  for  each  possible  value  of  the  DICT  item  CUS. 


CLSIN 

Item 

Express 

Used  by: 

MP 

Set  by  the  control  program  to  the 
card. 

niimber  of  columns  read 

in  on  each 

CLSS 

Output  Parameter 

Local 

Used  by: 

IDEAL 

Contains  the  CUS  of  the  dictionary  item. 

GNPOL 

Item 

Express 

Used  by: 

IDEAL 

Boolean  variable  >rtilch,  if  true. 

causes  the 

Generator  to 

search  the 

compool  for  undefined  identifiers.  If  false,  the  Generator  will 
assume  no  compool  was  available. 

CMPTR  Item  Express  Used  by:  MP 

Set  by  the  control  program  associated  with  Generator  I  on  a  particular 
machine.  It  contains  the  number  of  card  columns  of  meaningful 
information  on  each  input  card. 

COUNT  Item  Local  Used  by:  MUV 

Tells  which  half  of  IDNT  is  being  used  for  the  identifier  or  constant 
being  moved. 
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DAT 

DB 

DEBUS 

DECOR 

DEF 

DEFBP 

DEFN 

DEFNM 


Item  Local  Used  by:  CAN 

A  local  variable  set  to  the  value  of  TCPV  (dictlonazy  item)  for  this 
constant . 


Item  Local  Used  by:  WOK. 

Boolean  Item  set  to  1  when  a  dual  item  is  being  processed. 

File  Express  Used  by:  MP,  FDICT, 

ERROR,  RECRD, 
TSTIM 

File  \dilch  contains  the  listing  of  the  JOVIAL  source  program,  error 
messages,  CAT  printout  and  DICT  printout. 


Switch 


Local  Used  by:  IDEAL 


Switch  set  to  input  by  IDEAL.  Used  to  test  for  certain  declarators 
by  looking  at  first  ^  characters  of  label  in  IDNT. 


0  =  5T  (StfITC) 

1  =  5T  (PROC) 

2  =  5T  (CLOSE) 

3  »  5T  (DIREC) 

4  =  5T  (OVERL) 

5  =  5T  (ARRAY) 


6  =  5T  (FIIE) 

7  =  5T  ItHSIE) 

8  =  5T  (ITEM) 

9  =  5T  (MODE) 
10  »  5T  (sTRIH) 


Subscripted  item  Local  Used  by:  PDICT 

STC  variable  in  an  unnamed  table  containing  preset  data  which  gives 
a  mnemonic  neune  for  each  possible  value  of  the  DICT  item  DEFN. 


Item  Express  Used  by:  MP,  LOOK, 

TSTIM 

Boolean  variable  set  to  1  when  defined  information  is  being  processed. 


Subscripted  item  from  table  DICT  Express  Used  by:  EDICT,  IDEAL, 

POOL 


Specifies  the  definition  of  the  entry: 


0  s  null 

1  s  express 

2  -  cooipool 


3  *  local 

4  a  formal  procedure  input  parameter 
^  s  formal  procedure  output  parameter 


Subscripted  item  from  table  DICT  Express  Used  by:  IDEAL 


Identical  to  DEPN  in  DICT. 
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BELIM 


BENT 


BFB 


BI 


BICT 


Bicm 


Subscripted  item  from  table  BCE  Express  Used  by:  MP>  FNRC, 

nSAL 

Contains  the  last  5  out  of  6  STC  characters  In  each  part  of  speech 
In  table  BCE. 

Subscripted  Item  from  table  BISH  Express  Used  by:  SRCH>  IBEAL> 

POOL 

iSils  contains  the  dictionary  entry  Index.  In  effect,  this  has  the 
dictionary  channel  referenced  by  a  particular  Identifier  (label). 

Item  Express  Used  by:  LOOK, 

Main  program 

Boolean  Item  set  to  1  when  a  BEFINE  declaration  Is  being  processed. 

Item  Express  Used  by:  LOOK 

Main  program 

Contains  next  available  byte  In  variable  KB. 

Table  Contains  Items:  CHLl,  CHL2,  RNGI,  RORT,  TREGN,  BEFN,  TXFV, 

BRGT,  FBAT,  FCHB,  TRIM,  SINB,  CLAS,  BIMN, 
OIAY,  IPNM,  MAXN,  MINN,  PACK,  FBIT,  NCHB, 
SIZE 

Express  Used  by:  H^AL,  POOL 

Contains  complete  description  of  the  constemts,  tables.  Items,  etc. 

In  the  JOVIAL  source  program  as  derived  from  their  declarations. 

Table  Contains  Items:  CHUM,  CHLSM,  RNGBf,  ROBOM,  TRECBM,  BEINM, 

TIPVM,  BRGTM,  PBAIM,  FCHGM,  TFim,  SINIM, 
CUSM,  BIMNM,  OIAYM,  IPNM4,  MAXNM,  MINNM, 
FACKM,  FBITM,  NCHBt,  SIZEM 

Express  Used  by:  IBEAL 

Parallel  working  storage  for  BICT.  BICT  has  a  variable  number  of 
entries.  BICTM,  however,  has  only  four  entries.  Certain  declarations 
are  processed  using  BICTM  prior  to  transferring  to  BICT.  The  first 
entry  Is  reversed  for  mode,  the  second  Is  for  constants*  In  case  a 
mode  declaration  Is  made  and  has  parameter  values,  the  peurameters 
are  In  the  second  entry  auid  the  mode  In  the  first.  The  third  entry 
may  act  as  temporary  storage  for  simple  or  subscripted  variables 
while  processing  a  declaration.  ISie  fourth  Is  used  If  the  third 
contains  a  variable  having  parameter  values,  aind  those  parameters 
are  then  set  here. 
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DIF  Item  Local  Used  by:  GAN 

ISils  contains  the  number  of  digits  between  the  decimal  point  and 
the  end  of  the  numeric  portion  of  the  constant.  (As  in  2.3E^  which 
is  changed  to  23E5>  OIF  »  l) . 

DIMN  Subscripted  item  from  table  DICT  Express  Used  by:  UnALi  POOL 

If  CIAS  equals  file: 

Specifies  the  number  of  characters  in  item  IDNS  of  the  hardware 
label. 

If  CIAS  equals  constant  wad.  SIND  equals  1  and  the  nearest  non-constant 
preceding  entry  is  array: 

Specifies  the  index  (relative  to  O)  of  the  plane  (3rd  dimension) 
of  the  set  of  data. 

If  CIAS  equals  array: 

Specifies  the  nuinber  of  array  dimensions. 

If  CIAS  equals  subscripted  item  or  string: 

Specifies  the  DICT  entry  number  of  the  associated  table. 

DIMNM  Subscripted  item  from  table  DICT  Express  Used  by:  IMP 

Identical  to  DIMN  in  the  dictionary. 

DIME  Subscripted  item  from  table  DISH  Express  Used  by:  IDEAL 

For  a  dictionary  entry  with  CIAS  equal  to  8  (ARRAY)/  dimension  sizes 
of  the  ARRAY  are  stored  consecutively  in  DISH.  Reference  to  DIMZ 
is  in  the  DICT  item  CHL2.  The  number  of  consecutive  entries  is 
contained  in  the  DICT  item  DIMN. 

DIRCT  File  Express  Used  by:  Main  program 

Contains  cards  of  direct  code,  which  are  output  as  they  are  encountered 
in  the  JOVIAL  source  program. 

DISH  Table  Contains  items:  INUS,  DIMZ,  SOCN,  DENT 

Express  Used  by:  SRCH,  IDEAL 

The  dictionary  search  table  is  used  for  entry  into  the  dictionary. 

It  is  a  one  word  entry  table.  The  bottom  portion  of  DISH  is  reserved 
for  DICT  overflow. 


10  JMly  1962 


2k 


9C-555/020/00 


OMAIN 

DOT 

DTOB 

DTOB 

DUL 

DUN 


Subscripted  item  from  table  IZGAL  Esqpress  Used  by:  IDEAL 

An  item  in  table  lEOAL^  1X4AIN  is  used  in  identification  of  Identifiers 
to  see  if  they  are  indeed  the  same.  If  the  identifiers  axe  within 
the  same  scope >  they  are  then  checked  again  to  see  if  the  identifiers 
are  within  the  same  range. 

Item  Local  Used  by:  GAN 

If  item  DOT  is  equal  to  zero,  no  decimal  point  appears  in  the  constant. 
If  DOT  is  not  zero,  it  contains  the  actual  entry  of  the  decimal  point. 
This  is  used  twice  with  dual  constants  and  reset  between  processing 
the  halves. 

Output  Parameter  Local  Used  by:  DTOB 

Variable  containing  the  output  of  the  function  DTOB. 

Procedure 

Procedure  which  converts  an  STC  integer  to  binary. 

Item  Local  Used  by:  CAN 

A  Boolean  variable  set  to  1  if  a  dual  constant  is  being  processed. 

Item  Local  Used  by:  CAN 

A  Boolean  item  used  when  processing  dual  constants.  It  is  set  to  1 
when  processing  has  been  completed. 
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EFIND  Item  Express  Used  by:  HP,  T8IIM 

Boolean  variable  set  to  1  vhen  an  EOF  is  encountered  during  input. 

ENTER  Procedure 

Procedure  vhlch  calls  IDEAL. 

ERR  Item  Local  Used  by:  CAN 

A  Boolean  variable  \diich  is  set  to  one  if  an  error  has  been  found. 

ERROR  Procedvire 

Procedure  vhlch  prints  the  error  messages. 

ERT  Item  Express  Used  by:  ERROR 

STC  parameter  item  vhlch  contains  the  standard  portion  of  the  error 
message  printout. 

ERTY  Item  Express  Used  by:  ERROR 

3FC  item  vhlch  contaltxs  output  image  for  error  messages . 

EXCID  Item  Express  Used  by:  MP,  ENTER 

Boolean  variable  set  to  1  vhen  a  call  to  procedure  ENTER  is  made. 

EXES  Item  Local  Used  by:  IDEAL 

Integer  counter  for  excessive  errors.  It  Is  also  used  for  temporary 
storage . 

EXTRA  Subscripted  Item  from  table  BCE  Express  Used  by:  HP,  FNRC 

Contains  the  first  of  6  STC  characters  in  e6u;h  part  of  speech  in 
table  BCE. 
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FB 

FBIT 

FBIIM 

FCHAR 

FCHB 

FCHM 

mn) 

FIRST 

FIRST 

me 


Item  Express  Used  by:  LOOK,  NUV 

Boolean  item  set  to  1  the  first  time  procedure  MUV  is  called  from 
L0(BC,  each  time  LOOK  is  used. 

Subscripted  item  frea  table  OICT  E^Quress  Used  by:  FDICT,  USAL, 

POOL 

If  C1A8  equals  subscripted  item  and  the  item  is  in  a  table  with 
specified  packing: 

Specifies  the  first  bit. 

Subscripted  item  from  table  DICTM  Express  Used  by:  HP 
Equivalent  to  FBIT  in  DICT. 

Item  Local  Used  by:  LOOK 

8TC  item  used  to  hold  one  character  when  scanning  a  consent  to 
discard  it. 

Subscripted  item  from  table  DICT  Express  Used  by:  ERROR,  FDICT, 

8RCH,  nSdL, 
POOL 

Specifies  the  first  character  byte  in  item  IDNS  of  the  identifier 
associated  with  the  entry. 

Subscripted  item  from  table  DICTM  Express  Used  by:  IDEAL,  DP 

Parallel  to  FCHB  in  DICT. 

Table  Contains  item:  BIND  Express  Used  by:  MP 

Table  used  to  store  counts  of  parentheses  vhen  processing  nested 
functional  modifiers. 

Item  Express  Used  by:  IDEAL 

An  item  containing  the  first  dictionary  index  to  be  printed. 

Input  Parameter  Loceil  Used  by:  PDICT 

Contains  the  first  channel  of  the  dictionary  (DICT)  to  be  edited  for 
printing . 

Procedure 

Procedure  vhlch  provides  for  restarting  operation  after  an  Illegal 
triplet  has  been  detected. 


I 
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FOND 


FORM 


IPNM 


IFIMM 


Item  E:q>res8  Used  by:  VkBEf  8RCS 

jmL,  POOL 

Boolean  Item  used  as  comoBmlcation  between  IDEAL  and  SIGH.  If  FORD 
Is  set  to  1  on  entering  SRCH>  SRCH  has  already  been  entered  for  this 
Item  and  now  overflow  Is  to  be  checked.  If  FOND  Is  set  to  1  v^n 
returning  to  IDEAL^  an  Identifier  identical  to  the  one  being 
processed  is  alrea^  in  the  dictionary. 

Item  In  table  BCE  Express  Used  by:  MP 

For  each  part  of  speech  in  BCE>  FORM  contains  the  value  which  goes 
in  CATF. 

Subscripted  item  from  table  DICT  Express  Used  by:  PDICT,  IDEAL, 

POOL 

If  ClAS  equals  procedure; 

Specifies  the  number  of  formal  parameters. 

If  ClAS  equals  subscripted  item  or  a  string  variable  in  a  table 
with  specified  packing: 

Specifies  the  word  of  the  entry  for  the  item  or  string. 

If  CLAS  equals  table,  array,  item,  statement  label,  close,  numeric 
switch,  item  switch,  or  file  and  DEFN  greater  than  3: 

Specifies  the  formal  peuiameter  nxuaber. 

Subscripted  item  from  table  DICIN  Express  Used  by:  IDEAL,  IMP 

Identical  to  FPNM  in  the  dictionary,  formeO.  peurameter  number. 
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(212 

GET3 

GT 


Procedure 

Procedure  vhlch  calls  L(X)K  to  bring  the  next  part  of  speech  into 

naiT. 

Procedure 

Procedvire  which  calls  LOOK  until  a  dollar  sign  is  detected. 

Switch  Local  Used  by:  LOOK 

Entered  irtien  a  special  character  has  been  recognized.  The  entrance 
value  is  obtained  from  subsctipted  item  SV. 
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HASH  ftrocedure 

Procedxire  which  converts  a  string  of  STC  characters  to  cm  index 
value. 

HB  Item  Local  Used  by:  LOOK 

Boolean  item  set  to  1  when  a  Hollerith  or  STC  constant  is  being 
processed. 

HI  Item  Express  Used  by:  MP 

Used  for  temporary  storage  during  processing  of  direct  code. 

HIN  File  Express  Used  by  TSTIM, 

Main  program 

File  containing  the  Hollerith  input  to  the  Generator,  i.e.,  the 
JOVIAL  soxirce  program. 

HL  Item  Local  Used  by:  LOOK 

Contains  the  number  of  characters  +  2  in  a  Hollerith  or  STC  constant 
when  processing  the  constant. 
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II  Item  Express  Used  by;  MP,  ENTER, 

LOOK,  RECRO, 
TSTIM 

The  index  to  CAT. 

IM  Subscripted  Item  from  table  IDT  Sbqpress  Used  by:  KUV 

Item  overlayed  with  one  character  in  imT,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDS  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

Item  overlayed  with  one  character  in  IDNT,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDC  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

Item  overlayed  with  one  character  in  HfflT,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDD  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

Item  overlayed  vith  one  character  in  IDNT,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDE  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

Item  overlayed  vith  one  character  in  i.  T,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDEAL  Procedure 

Procedure  vhlch  processes  certain  declarations,  totally  or  partially, 
invoking  the  aid  of  specific  processing  procedures  vhere  necessary. 

It  makes  dictionary  (DICT)  entries  defining  labels  and  constcmts,  pro¬ 
cesses  preset  .parameter  constants  included  vith  declarations,  and 
stores  identifiers  and  constants  in  Il^S. 

IDF  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

Item  overlayed  vith  one  chatracter  in  IDNT,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDG  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

ItoB  overlayed  vith  one  character  in  IDNT,  to  provide  access  to 
characters  vlthout  using  the  string  routines. 

IDH  Subscripted  item  from  table  IDT  Express  Used  by:  MUV 

Item  overlayed  vith  one  character  in  UNIT,  to  provide  access  to 
characters  vlthout  using  <die  string  routines. 
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IDN  Item  Express  Used  by:  MP 

Dimny  item  xised  to  overlay  the  NENT  word  of  table  IDT. 

IDNS  Item  Express  Used  by:  IMP,  ^CH, 

PDICT,  POOL, 

ERROR,  HEAL 

STC  variable  which  contains  all  identifiers  and  constants  found  in 
the  JOVIAL  source  xtrogram. 

IDNT  Item  Express  Used  by:  LOOK,  BURY, 

HASH,  ERROR,  FMRC, 
URAL,  POOL,  CAR, 
SOON,  3RCH,  GEI2, 
IMP,  ideal 

STC  variable  which  contains  the  current  part  of  speech  being  processed, 
and  the  last  part  of  speech  whm  the  part  of  speech  is  an  Identifier 
or  constant. 

IDOL  Item  Express  Used  by:  MP,  GET2, 

aET3>  URAL 

A  Boolean  variable  set  to  1  if  URAL  uses  LOOK  to  move  past  the  end 
of  a  declaration. 

IDT  Table  Contains  items  IDA,  IDB,  IDC,  IDD,  IDE,  HR,  IDG,  IDH 

Express  Used  by:  MUV 

Overlayed  with  item  IDNT  to  provide  access  to  characters  without 
using  the  string  routines. 

IM  Item  Local  Used  by:  CAN 

A  buffer  string  that  holds  the  126  characters  being  processed  and  is 
needed  in  order  to  selntain  the  original  value  in  IDNT.  One  cheuracter 
at  a  time  is  scanned  and  placed  in  IM;  when  completed  this  entire  entry 
is  placed  back  into  IDNT. 

IMP  Procedure 

Proced\ire  which  processes  that  portion  of  declarations  called  the  itan 
description  including  the  preset  parameter  constant  if  it  is  a  sit^gle 
constant  in  a  non>subscrlpted  variable  declaration. 

Item  Local  Used  by:  LOOK 

A  Boolean  variable  set  to  1  if  the  index  to  CARD  (Jl)  is  to  be 
incremented  by  1  before  return  from  LOOK,  and  0  if  not. 


INC 
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INDEX  Input  Parameter  Local  Used  by:  SCON 

Contains  a  3TAT  table  index  if  a  search  is  requested. 

INDIR  Item  Express  Used  by:  MP 

A  Boolean  variable  set  to  1  when  processing  is  being  done  inside  of 
DIRECT  -  JOVIAL  brackets. 

INITBYTE  Item  Express  Used  by:  Main  program 

Contains  byte  in  TSTR  into  which  the  first  character  of  the  input  is 
read. 

INUS  Subscripted  item  from  table  DISH  Express  Used  by:  SRCH,  F00L| 

IDEAL 

A  Boolean  variable  in  DISH  table.  1  equals  true  which  implies  that 
this  DISH  channel  is  occupied. 
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J1 


JJ 

June 


Item  Express  Used  by:  LOOK* 

Rl^i  TffCDC 

Index  to  IMUas. 

Item  B^qpress  Used  by:  LOOK|  Iff 

Holds  level  of  nesting  vhen  a  defined  Identifier  Is  being  processed. 

Item  Express  Used  by:  Iff 

Used  to  discard  output  from  LOOK  vhlch  Is  not  needed* 
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K  Subscript  Local  Used  by:  IDEAL 

Counter  used  in  reference  to  DICT;  it  holds  the  nuinber  of  the 
dictionary  channel  that  Is  In  use. 

K1  Item  E^qpress  Used  by:  MP,  PIIRC> 

ENTER 

Contains  value  associated  with  the  left  term  of  the  triplet  being 
processed  currently. 

KD  Item  Express  Used  by:  LOOK 

SIC  Item  vhlch  holds  defined  Identifiers  aM  their  definitions  {fran 
DEFUOB  declarations). 

KDA  Subscripted  item  from  unnamed  table  E^^ress  Used  by:  LOOK 

Contains  first  character  byte  of  defined  identifier  from  DEFINE 
declaration. 

XDB  Subscripted  item  from  unnamed  table  E^qpress  Used  by:  LOOK 

Contains  nuniber  of  characters  In  defined  Identifier  from  DEFINE 
declaration 

KDC  Subscripted  item  trm  unnamed  table  E]9ress  Used  by:  LOOK 

Contains  nuober  of  characters  in  definition  from  DEFINE  declaration. 

KVAL  ^bscripted  item  from  table  BCE  E^qpress  Used  by:  W,  RDtC 

Contains  the  K1  value  for  each  part  of  speech  in  table  BCE. 
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U 

U 

12 

13 

XASI 

UST 

IS 

LBR 

LERIP 

LBZN 

Lsm 


Item  Esqpress  Used  by:  FHRCf  (SBIZ,(3SBS3t 

T»,  HJML,  LOOK, 
TSTIK,  Iff 

Contmltis  value  associated  with  the  right  term  of  the  triplet  being 
processed  currently. 

Item  Local  Used  by:  GAN 

Used  as  a  pointer  to  reference  the  position  with  IDNS  string  for  the 
constant  being  analyzed,  left  pointer. 

Item  Local  Used  by:  CAN 

A  local  Identifier  used  as  a  left  reference  point  to  the  constant 
Image. 

Item  Local  Used  by:  GAN 

Used  as  a  temporary  storage  for  left  pointer  In  processing  dual  Items. 


Item  Express  Used  by:  ILEAL 

Contains  the  most  recent  dictionary  (DICT)  channel  reference  for  a 
status  variable. 


Input  Parameter 

Contains  the  last 
printing. 


Local 

channel  of  the  dictionary 


Used  by:  PDICT 
(DICT)  to  be  edited  for 


Item  Local  Used  by:  LOOK 

Boolean  Item  set  to  1  when  the  first  letter  In  an  Identifier,  or  the 
first  nxuiber  In  a  constant  Is  encountered. 


File  Express  Used  by:  TSTIM,  Iff 

File  which  holds  the  JOVIAL  library  procedures. 


Subscripted  item  In  ccxitrol  table  E:q>ress 

Boolean  Item  set  to  1  ^en  a  library  tape  Is 
otherwise . 


Used  by:  MP 
available  and  set  to  0 


Item  Express  Used  by:  TSTIM,  NP 

Boolean  Item  set  to  1  when  processing  of  the  library  procedures  begins. 


Item  Express  Used  by:  TSTIM,  MP 

Boolean  Item  set  to  1  when  an  end  of  file  Is  detected  on  the  library 
tape. 
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LCBAR  Itea  Local  Used  by:  LOOK 

8TC  Item  vhleh  contains  the  last  character  processed. 

LORD  Item  E^qpress  Used  by:  HP 

Holds  nuober  of  cards  In  a  library  procedure  vhen  that  procedure  Is 
to  be  bypassed  on  the  library  tape. 

LBQAL  Table  Contains  Items:  SCOPE,  IXfAIN 

E:qpress  Used  by:  IDEAL 

me  SCOPE  ITEM  IKAIN 

01010001010-^ - FARAM< - ^  01010001010 

0001000100 
0000010000 

0001000100  . 

^ ^ 

0001000101 

If  the  Identifier  is  already  entered  in  the  dictionary,  SCOPE  and 
IMAIlf  are  used  to  test  for  usage  to  see  if  the  identifiers  are 
actually  the  same. 

(CIASClD]  «  10  PARAM  «  denotes  index  to  SCOPE) 

LOCEC  Procedure 

Procedure  vhich  finds  the  next  part  of  speech  in  the  JOVIAL  source 
program. 


0101110101 

0101110101 

0101110101 


0101110101 


4 


4 


10  July  1962 


37 


IM-555/020/00 


N  8id)serlpt  Local  Itoed  Iqrt  znML 

EMbcerlpt  uaed  aa  index  to  DICT  fcr  prorioualy  entorad  tariablao  or  eoMtanta* 

IMf  Milo  Caatalna  Itea:  MATI  fi^ronn  Onod  Lyt  NP 

Contaiiu  preoet  data  glTlng  the  Taluee  In  the  li^allty  aatrlx  nhloh  is  usod 
to  detoraine  nhat  parts  of  speech  are  legal  as  the  alddle  tam  in  a  triplet* 


709  VERSION 

OF  1.EGALITY  MATRIX 

» 

CIS 

« 

» 

.  OOU 

« 

» 

-«  <$(/  *  *NEB 

» 

>$»/»-+»/*• ‘SNS 

« 

« 

1234567890123456789012  * 

BCI 

4 

999999999999999999999999 

NULL 

1 

!■ 

SEP*0P*BRAK 

BCI 

4 

919199919999119999911199 

DESL 

2 

2« 

ID'S 

* 

CONS 

BCt 

4 

991699314999111119911199 

FILL 

3 

3- 

PROL 

OR 

FMO 

BCI 

4 

911111119199111119911199 

CONS 

4 

40 

SVAR 

OR 

BEA 

BCI 

4 

911111119199111119911191 

ITEL 

5 

5« 

DESL 

BCI 

4 

911191119199111119911199 

SITL 

6 

6* 

1  OR 

2 

BCI 

4 

991999119999119999911 199 

PROL 

7 

?■ 

1  OR 

3 

BCI 

4 

911111119199111119911191 

SUBS 

8 

8* 

1  OR 

4 

BCI 

4 

999299794999662229916699 

IF 

9 

9-ILLEGAL 

BCI 

4 

999599995999999999999999 

GOTO 

10 

BCI 

4 

992999999999999999999999 

FOR 

11 

BCI 

4 

999999999999999999991199 

RETURN 

12 

BCI 

4 

999599999999999999991199 

STOP 

13 

BCI 

4 

999299999999999999991199 

TEST 

14 

BCI 

4 

592729794999119199916699 

.  15 

BCI 

4 

562699764299662229911199 

* 

16 

BCI 

4 

569299724999662229916199 

= 

17 

BCI 

4 

999299394999999999999999 

s  s 

18 

BCI 

4 

999999724699666669911199 

•  •  • 

19 

BCI 

4 

962196764199666669916699 

{ 

20 

BCI 

4 

911191119199111119911191 

) 

21 

BCI 

4 

929992794299662229911199 

(S 

22 

BCI 

4 

911111119199111119911191 

S) 

23 

BCI 

4 

999599999999999999999999 

TERM 

24 

BCI 

4 

999299724999662229916699 

LOGO-RE LO  25 

BCI 

4 

999299724999662229916699 

RELO 

26 

BCI 

4 

922292724299662229916699 

ARIO 

27 

BCI 

4 

99999919999911999991 1199 

BEAD 

28 

BCI 

4 

99999919999999999991 1199 

FMOD 

29 

BCI 

4 

999299794999662229916699 

IFEITH 

30 

BCI 

4 

999299794999662229916699 

ORIF 

31 

BCI 

4 

592729794999119199916699 

BEGIN  32 

BCI 

4 

592729794999119199916699 

END 

33 

BCI 

4 

592729794999119999916699 

START 

34 

BCI 

4 

592729794999119199916699 

$ 

35 

BCI 

4 

592129394999119999911199 

DIRECT 

36 

BCI 

4 

999999299999229999992999 

INPUT 

37 

BCI 

4 

999999299999229999922999 

OUTPUT 

39 

BCI 

4 

999299299999229999992999 

0/S  IN 

39 

BCI 

4 

999299299999229999922999 

0/S  OU 

40 
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MITI  Subscripted  item  from  table  M/LT  Express  Used  by:  MP 

8TC  Item  \Ailch  contains  the  values  In  the  legality  matrix. 

MAXN  Subscripted  item  from  table  DICT  Express  Used  by:  IDEItL 

Overlays  the  least  significant  bits  of  DIMN  euid  may  be  referenced 
for  the  nuoiber  of  characters  in  the  hardware  label  of  a  file. 


MAXm 

Subscripted  item  from  table  DICTM 

Express 

Used  by: 

Hot  used 

MniN 

Subscripted  Item  from  table  DICT 

Express 

Used  by: 

Hot  used 

MIEIIM 

Subscripted  Item  from  table  Dicm 

Used  by: 

Hot  used 

MORED 

Item 

Express 

Used  by: 

MP 

Boolean  Item  set  to  1  If  DIRECT  Is 
Ing  processed. 

the  third 

term  In  the 

triplet  be- 

MCRX 

Item 

E^qpress 

Used  by: 

MP 

Transmission  code  variable  which  Is  overlaid  with  MAT. 

NTXP 

Item 

Express 

Used  by: 

MP 

Set  to  1,  2,  or  3  when  the  values  6,  7>  or  8.  respectively  are  en> 
countered  in  the  legality  matrix. 


NOV  Procedure 

Procedure  which  moves  one  character  of  Information  from  Item  CHAR  to 
the  next  available  byte  In  IDRT. 
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NARDA 

KBXT 

NC 

NCHAR 

NCHB 

NCHB< 

NOT 

ND 


Item  E:qpress  Used  by:  IDEAL,  POOL 

Counter  for  the  next  available  chazuiel  containing  DIMZ  In  the  DISH 
table. 


Item  E^qpress  Used  by:  Main  program 

Parameter  set  to  the  number  of  bytes  In  a  machine  word  (machine 
dependent) . 

Item  E^qpress  Used  by:  LOOK 

Parameter  Item  set  to  maximum  adlovable  entry  for  subscripted  Item 
CARD. 


Item  Express  Used  by:  Iff,  PNRC,  CAN, 

ERIER,  POOL,  HASH, 
GET3,  SCON,  SRGH, 
GET2,  IMP,  IDEAL 

Contains  the  nuniber  of  characters  In  the  middle  term  of  the  triplet 
being  processed  currently. 

Subscripted  Item  from  table  DICT  Egress  Used  by:  ERROR,  FDICT, 

IDEAL,  POOL,  SRCH 

If  CIAS  equals  constant  and  SIND  equals  1  and  the  nearest  preceding 
non-constant  entry  Is  an  Item  or  array: 

Specifies  the  nuoiber  of  bytes  In  the  first  constant  set 
(excluding  the  separator  character). 

For  all  other  classes: 

Specifies  the  nuniber  of  character  bytes  In  Item  IDNS  of  the 
Identifier  associated  vith  the  entry. 

Subscripted  Item  from  table  DICIM  E^qpress  Used  by:  IMP,  IDEAL 

Parallel  to  NCHB,  NCHM  is  storage  and  reference  vhen  making  up 
declaration  Items  for  the  dlctlcxiary. 


Item  Es^ress  Used  by:  Main  program 

Parameter  Item  set  to  maximum  allowable  entry  in  table  CAT. 

Item  E:qpress  Used  by:  LOOK 

Parameter  item  set  to  maximum  allowable  entry  in  table  DICT. 


Item  Ssqpress  Used  by: 

Contains  the  niuaber  of  DEFINE  declarations  processed. 


NDEFS 


MP,  LOOK 


I 
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NDICT 


NDICIM 


NBG 


NEXT 


NX 


NO 


NOCD 


NOCN 


NORI 


NOVER 


Item 


Express  Used  by: 


IDEAL,  IMP 
POOL 


Counter  used  in  reference  to  DICT;  It  holds  the  nuoiber  of  the  next 
unused  dictionary  slot*  At  any  given  time  NDICT  -1  is  the  nuober 
of  DICT  entries.  DICT  is  filled  in  order  of  increasing  magnitude 
with  the  zeroeth  entry  unused. 


Item 

Index  into  DICTM. 
Item 


Express  Used  by:  IDEAL 


Local 


Used  by:  CAN 


A  Boolean  variable  set  to  1  if  a  negative  value  is  being  processed. 
It  is  used  twice  in  CAN;  once  at  the  begiiming  for  prefixed  sign  and 
again  for  ^  A  or  E  factor. 


Item 


Express  Used  by:  IDEAL,  TOOL, 

LOOK,  HASH,  PDICT, 
SRCH,  IMP,  MP 


Used  as  a  coxmter  for  IDNS.  At  aivy^  given  time  this  variable  contains 
the  next  xmused  byte  in  IDNS.  IDNS  bytes  are  filled  in  order  of 
increasing  magnitisie. 

Item  Express  Used  by:  LOOK 

Parameter  item  set  to  maximum  allowable  byte  in  item  IDNS. 

Item  Express  Used  by:  LOOK 

Parameter  item  set  to  maximum  allowable  entry  in  table  OVER. 


Item 


E^qpress  Used  by:  MP 


Counter  used  to  save  the  nuoiber  of  direct  code  statements  between 
DIRECT  and  JOVIAL,  (2)  DIRECT  and  ASSIGN,  (3)  ASSIGN  and  ASSIGN, 
ASSIGN  and  JOVIAL  brackets. 


vvui 


Item  E:q>ress  Used  by:  SRCH,  IDEAL 

Contains  the  next  overflow  channel  available  in  table  DISH:  counter 
used  to  store  SOCN.  Initial  value  is  102$. 

Item  Eoqpress  Used  by:  MP,  ERIER 

Boolean  variable  set  to  1  when  an  item  switch  is  being  processed. 


Item 


E:g?ress  Used  by:  IDEAL,  LOOK 


Counter  for  entry  into  the  table  OVER. 
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NSIAT  Item  Express  Used  by:  SCON,  IDEM,, 

FOOL 

Contains  the  next  available  slot  In  the  SIAT  table.  NSIAT-1  is  the 
nuBiber  of  status  variables  In  the  source  program. 

NU  It«m  Express  Used  by:  LOOK 

Parameter  Item  set  to  maximum  allowable  nusiber  of  define  declarations. 

NUMB  Input  Parameter  Local  Used  by:  USAL 

Input  from  ENTER  to  IDEAL,  NUMB  contains  the  ntsriber  of  characters  to 
be  processed. 

NUMB  Input  Parameter  Local  Used  by:  BINRY 

Contains  the  number  of  characters  In  IDHT  to  be  converted. 

NVAL  Subscripted  Item  from  table  STAT  Ebqpress  Used  by:  SCON,  IMP, 

UJBAL 

Contains  the  number  of  statl  connected  with  this  particular  variable. 

NVALU  Item  Esqpress  Used  by:  SCON,  HEAL, 

FOOL 

Counter  for  entry  Into  the  status  constant  string,  VALU;  It  glvef  the 
next  available  byte  for  storage. 

NX  Item  Ebqpress  Used  by:  LOOK 

Parameter  Item  set  to  maximum  byte  allowable  In  Item  KD.  (NaxlfflUB 
number  of  characters  allowable  In  total  of  defined  labels  and  their 
definitions . ) 

lOCTCR  Item  Express  Used  by:  MP,  FNRC,  GBT2, 

GET3 

Contains  the  number  of  characters  In  the  right  term  of  the  triplet 
being  processed  currently. 
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OA  Subscripted  item  trcm.  table  OV  Eiqpress  Used  by:  TSTIM 

STC  item  in  table  overlayed  with  3TC  item  TSTR,  to  provide  access  to 
characters  without  using  the  string  routines. 

OB  Item  £:^press  Used  by:  MP 

Dummy  item  used  to  overlay  the  BENT  word  of  table  OV. 

OCT  Item  Local  Used  by:  CAN 

An  octal  63 >  it  is  used  with  SEP  as  a  separator  between  entries  in 
IDNS. 

OLAY  Subscrii>ted  item  trcm  table  DICT  Ibqpress  Used  by:  CAN 

If  CLAS  equals  item,  table,  array  or  file: 

0  >  not  used  in  an  overlay 
1  «  used  in  an  overlay 

OLAYM  Subscripted  item  from  table  DICIM  Express  Used  by:  Not  used 

Identical  to  OLAY  in  the  dictionary. 

ORGY  Subscripted  item  from  table  OVER  Express  Used  by:  Not  used 

This  is  the  overlay  guaranty  storage  and  is  available  to  the  trans¬ 
lator  in  the  packing  phase. 

OSB  Item  Local  Used  by:  LOOK 

Boolean  item  set  to  1  when  an  octal  or  status  constant  is  being 
processed. 

OUT  Item  Express  Used  by:  RECRD 

STC  item  which  contains  output  image  for  CAT  printout. 

OV  Table  containing  item:  OA  Express  Used  by:  TSTIM 

Table  overlayed  with  STC  variable  TSI^  to  provide  access  to  characters 
without  using  the  string  routines. 

OVEN  Subscripted  item  from  table  OVER  E^qpress  Used  by:  IDEAL 

This  Is  the  overlay  sequence  number  and  starts  at  1  for  each 
overlay  declaration. 

OVER  Table  Contains  items:  OVID,  OVEN,  ORGY,  OVLI 

Express  Used  by:  IDEAL 

An  ancillary  table  containing  OVERLAY  declaration  information. 
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CNTL  Suibserlpted  Item  troa.  table  OVER  Express  Used  by:  IDBAL 

Contains  DICT  channel  of  the  variable. 

OVZiI  Subscripted  item  from  table  OVER  Express  Used  by:  nXBdL 

Overlay  indicator.  If  equal  to  0,  this  is  the  lead  of  a  series  of 
variables.  If  1,  the  variables  are  consecutive. 

As  in  the  case: 

OVERIAY  AA  -  BB  «  CC  (OVLI  is  set  to  0  in  all  three) 

OVERLAY  AA,  BB  -  CC,  DD  (OLVI  equals  0,  1,  0,  1  in  that  order 

of  succession) 
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FAC  Subscripted  Item  Local  Used  by:  FDICT 

STC  variable  In  an  unnamed  table  containing  preset  data  vhich  gives 
a  mnemonic  name  for  each  possible  value  of  the  DICT  item  PACK. 


PACK  Subscripted  item  from  table  DICT  E^qpress  Used  by:  PDICT,  IDEAL 

POOL 

Specifies  the  packing  of  a  subscripted  item  or  table. 

0  =  ntill  3  *  medium  (m) 

1  =  specified  4  «  dense  (D) 

2  >  loose  or  none  (n) 


PACKM 

PARAM 


FB 


Subscripted  item  from  table  DICTM  E:q>ress  Used  by:  JUT,  HEAL 
Identical  to  PACK  in  the  dictionary. 


Item 


Express  Used  by:  HP,  ENTER^ 

IDEAL,  POOL 


Set  for  input  to  IDEAL  gives  reason  for  entry. 


0  -  Housekeep 

1  »  Designation  label 

2  =  Procedure  label 

3  Statement  label 

4  =  Variable 

5  =  Subscripted  item 

Item 


6  B  Constant 

7  ®  Switch  label 

8  =  Switch  item 

9  »  Close  label 

10  =  Modified  variable 

11  -  Terminal  entry  to  IDEAL 

Local  Used  by:  LOOK 


Boolean  item  used  when  processing  a  dual  constant.  Set  to  1  when  a 
left  parenthesis  is  encountered  inside  the  constant,  and  set  to  0 
^en  a  right  parenthesis  is  encountered  inside  the  constant. 


FCATl  Item  E:q?ress  Used  by:  RECRD 

Boolean  variable  set  by  the  control  program  as  follows: 

1  =  CAT  table  to  be  printed 
0  =  GAT  table  not  to  be  printed 

PGAT2  Item  E:q>ress  Used  by:  MF 

Boolean  variable  set  by  control  program  which,  if  true,  indicates 
that  the  CAT  table  should  be  printed  by  Phase  II. 

PCHN  Item  E^gpress  Used  by:  IDEAL,  POOL 

Tenporary  storage  containing  the  procedure  channel  number.  If  a 
procedure  declaration  is  being  processed,  this  is  set  as  an  index 
to  the  procedure  Identifier. 


10  1968 


1^5 


111-555/080/00 


FMT 


PDA3M 


PDCTY 


PDICT 


FEB 


POOL 


PP 


Subscripted  Item  ffom  table  DICT 


Esqpress  Used  by:  PDICT,  IMP, 

CAM,  USAL, 
POOL 


If  C1A8  equals  file: 

0  ■  fixed  length  records 
1  «  variable  length  records 

If  ClAS  equals  table: 

0  >  fixed  length 
1  *  variable  length 

If  CIAS  equals  Item,  subscripted  Item  or  arrsQr  and  TIPV  equals 
A,  D,  F,  I  or  K: 

0  a  \inslgned 
1  a  signed 

If  CIAS  equals  procedure: 

0  a  e3q;>ress  Items  are  set  In  the  procedure 
1  a  no  e:q)ress  Items  acre  set  in  the  procedure 


Subscripted  Item  from  table  DICIM  Express  Used  by: 
Equivalent  to  FDAT* 


IMP,  IDEAL, 
CAM 


Subscripted  Item  In  coitrol  table  Express  Used  by:  PDICT 

Boolean  item  set  to  1  by  the  control  program  vhen  the  dictloxMry  Is 
to  be  printed. 


Procedure 

Procedure  vhlch  prints  the  identifier  storage  Item,  BMIS,  and  the 
dictionary,  DICT. 

Item  Local  Used  by:  LOOK 

Boolean  Item  set  to  1  ^en  a  period  is  encountered  followed  by  a 
number 


Procedure . 

Procedure  which  extr«u:ts  certain  definitions  from  the  cooq>oo1  and 
plaices  them  In  the  dictionary  (DICT). 

Item  Express  Used  by:  LOOK 

Main  program 

Contains  number  of  undeclared  procedures  in  the  JOVIAL  source  program. 
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FRBP  Item  Eiqpress  Used  by:  HP,  BBtOR, 

lEBAL,  POOL 

Boolean  variable  set  to  1  when  a  procedure  Is  being  processed. 

PROD  Item  E^gpress  Used  by:  Iff,  BtROR 

Item  set  to  the  channel  of  the  name  of  the  procedure  being  processed. 

PRERI  Item  Express  Used  by:  HP 

Boolean  variable  set  to  1  when  a  procedure  declaration  within  a 
procedure  declaration  is  found. 


PRSC  Item  E^gpress  Used  by:  HP,  ERROR, 

LOOK 

Counter  used  for  the  ixumber  of  statements  in  a  procedure  since  the 
last  label. 

PRST  Item  Express  Used  by:  MP,  ERROR 

Contains  the  channel  nunSier  of  the  last  label mcountered  within 
a  procedure. 

PSSL  Item  E:gpress  Used  by:  NP 

Boolean  variable  set  to  1  when  a  statement  label  is  used  as  a 
parameter  in  a  procedure  declaration. 

PTXP  Item  Express  Used  by:  MP,  IDEAL 

Item  ybich  gives  parameter  type  when  processing  a  procedure 
declaration. 

0  =  no  setting 

1  a  formal  input  parameter 

2  a  formal  output  parameter 

PURE  Table  containing  items  UREl,  URE2  E^gpress  Used  by:  MP 

Holds  names  of  undeclared  procedures. 
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R1  Item  Local  Used  by:  GAN 

Used  as  a  rlc^t  reference  pointer  for  uni;  this  will  never  be  less 
than  LI.  Necessary  to  know  the  reference  to  the  constant  being 
analyzed  at  any  tioe>  character  referenced. 

R2  Item  Local  Used  by:  GAN 

A  right  reference  pointer  for  the  image  string,  character  reference 
for  position  at  any  time  during  the  constant  analysis. 

R3  Item  Local  Used  by:  GAN 

Temporary  storage  while  processing  dual  constants,  contains  the 
right  limits. 

r4  Item  Local  Used  by:  CAN 

Teqporary  storage  when  processing  a  non-duAl  constant,  contains 
the  extreme  right  limits. 

RECRD  Procedure 

Procedure  which  prints  the  CAT  table. 

RNGI  Subscripted  item  from  table  DICT  Express  Used  by:  IDEAL 

If  CIAS  equals  item,  subscripted  item  or  array: 

0  s  no  range  specified 
1  =  range  specified 

RNGIN  Subscripted  item  from  table  DICIM  E^qpress  Used  by:  IMP 

Identical  to  item  RNGI  in  the  dictionary. 

RQRT  If  CIAS  equals  item,  subscripted  item  or  array: 

1  °  round  variable 
0  B  truncate  variable 

RORTM  Subscripted  item  from  table  DICTM  Eb^ress  Used  by:  IMP 

Identical  to  Boolean  variable  in  the  dictionary,  information  as 
Aether  to  truncate  or  rouxvi. 

RSCBT  Input  Parameter  Local  Used  by:  IDEAL 

Contains  the  value  of  FARAM  from  main  program. 

RIPAR  Item  Express  Used  by:  MP 

Boolean  variable  set  to  1  when  the  next  right  parenthesis  is  to  be 
eliminated  in  the  CAT  table. 
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51  Switch  Esqpress  Used  by:  MP 

Switch  entered  with  the  value  picked  up  from  the  legality  matrix. 

52  Switch  Express  Used  by:  MP 

Switch  entered  when  declaration  has  been  recognized.  Distinguishes 
between  PROG,  SWITCH  and  CLOSE. 

53  Switch  Express  Used  by:  VP 

Switch  entered  \Aien  a  recogz^zable  part  of  speech  has  been  found 
(one  contained  in  table  BCE). 

8kV  Subscripted  item  Express  Used  by:  LOOK 

Item  in  unnamed  table  which  contains  CARD  entry  (Jl)  when  processlxig 
nested  defined  identifiers. 

SB  Item  Local  Used  by:  LOOK 

Boolean  item  set  to  1  when  a  letter  is  the  first  character  in  a  part 
of  speech. 

SC  Subscripted  item  Local  Used  by:  LOOK 

STC  item  in  uzmamed  table.  Each  entry  contains  one  JOVIAL  character 
(may  be  2  bytes)  that  is  recognized  by  LOOK 

SCXBl  Procedure 

Procedure  >Aiich  stores  statl  for  variable  declarations  having  statl, 
finds  statl  assigned  to  a  variable  among  that  variable's  associated 
statl,  and  converts  to  an  integer  in  STC  if  found. 

SCON  Output  Parameter  Local  Used  by:  SCON 

A  Boolean  item  set  for  Immediate  testing  on  exit.  If  true,  a  statxis 
was  found  and  converted*  If  false,  the  search  for  status  in  a 
given  channel  of  the  SIAT  table  was  unsuccessful. 

SCOPE  Subscripted  item  from  table  lEGAL  E^qpress  Used  by:  IDEAL 

Used  to  see  whether  an  identifier  is  within  the  same  scope  or  usage 
as  another  identifier  having  the  same  name.  Used  in  conjunction  with 
DMAIN. 

SDT  Item  Local  Used  by:  GAN 

A  local  variable  set  to  the  present  value  of  PDAT  (dictionary  item) . 
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SEP  Item  Local  Used  by:  CAN 

A  local  variable  vhlch  stands  for  separator  and  is  used  In  con* 
Junction  with  OCT  to  separate  IDNS  entries. 

SBIX.  Table  Contains  item:  VAUC  E^qpress  Used  by:  MP 

Contains  preset  data  used  for  setting  the  value  of  Kl,  the  left 
term  in  a  triplet. 

SCSN  Item  Local  Used  by:  CAN 

Boolean  item  set  to  true  when  the  ITEM  being  processed  is  signed. 

SIND  Subscripted  item  from  table  DICT  Express  Used  by:  PDICT>  IDEAL 

If  CLAS  equals  file: 

0  «  Hollerith 
1  =  binary 

If  GAS  equals  procedure: 

0  «  non-function 
1  =  function 

If  GAS  equals  constant: 

0  «  is  not  initial  data 
1  »  Inltlsd  data 

If  GAS  equals  table,  item,  subscripted  item  or  array: 

0  s  no  initial  data 
1  s  variable  has  initial  data 

If  GAS  equals  statement  label  or  close: 

0  s  the  label/ close  vas  used  after  its  declaration  (at  least 
one  backwv^  transfer)  or  else  it  vas  used  in  a  switch. 

1  -  label/ close  was  always  used  before  its  declaration  (no 
backwiEurd  transfers) 

SINIBt  Subscripted  item  from  table  DICIM  Express  Used  by:  IMP,  IDEAL 
This  is  equivalent  to  SIHD  in  the  dictionary;  GAS  dependent. 
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SIZE 


HTTiail 

SOON 

SPEC 

SRCH 


Subscripted  Item  from  table  DICT  Express  Used  by:  FDICT,  IDEAL 

POOL 


If  CIAS  equals 
Specifies 


table  and  PACK  equals  1: 
the  number  of  words  per  entry* 


If  CIAS  equals  Item,  subscripted  Item  or  array: 

(1)  TYPV  equals  H,  T: 

Specifies  the  nvin&)er  of  bytes. 

(2)  Tm  equals  A,  D,  I,  S,  K: 

Specifies  the  number  of  bits  (including  the  sign  bit) 


If  CIAS  equals 
Specifies 


file: 

the  maximum  number  of  records. 


If  CIAS  equals  constant  and  SIND  equals  1  aind  the  nearest  non-constant 
preceding  entry  Is  an  array: 

Specifies  the  Index  to  the  assigned  column  (relative  to  0) 
for  this  constant  set. 


Note:  If  a  procedure  Is  being  processed  and  It  Is  a  function,  SIZE 
contains  the  DICT  channel  of  the  output  parameter. 


Subscripted  Item  from  tableDICTM  E:qpress  Used  by:  IMP,  IDEAL 

Equivalent  to  SIZE  \rtilch  Is  an  Item  In  the  dictionary. 

Subscripted  Item  from  table  DISH  E:qpress  Used  by:  BtCH 

Index  to  overflow  portion  of  DISH  table.  A  setting  of  zero 
Indicates  that  no  overflow  exists.  Overflow  occurs  In  two  caises: 

(1)  the  same  Identifier  references  different  variables 

(2)  different  Identifiers  hash  to  the  same  number 

Hash  refers  to  a  method  of  chopping  an  Identifier  to  an  Index  value 
for  search  purposes. 


Item  E:qpress  Used  by:  IMP,  IDEAL 

This  variable  Is  used  as  Internal  coomtunlcatlon  between  IMP  and 
IDEAL  for  a  specified  table  or  function  variable.  This  Is  a  Boolean 
variable,  set  to  1  ^en  a  table  that  Is  completely  specified  Is 
being  processed. 

Procedure 

Procedxure  using  an  access  table  called  DISH  with  an  Index  valxie 
supplied  by  the  procedure  HASH  to  determine  the  presence  of  a  label, 
l.e..  Identifier,  or  constant  defined  In  the  dictionary,  DICT.  The 
Label  being  searched  Is  In  IDNT.  Ihe  results  of  the  search  are 
communicated  with  a  Boolean  Indicator,  and  If  found,  an  Index  value 
to  the  defining  DICT  entry  Is  sig;>plled.  Housekeeping  for  reference 
and  entry  Into  IDNS  Is  supplied.  DISH  Items  are  maintained. 
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STAT 

910 

3TC 

STCm 

s/nti 

STORE 

SIM 

SV 

SHEP 


Table  Contains  items:  NVAL,  VPOS 

Express  Used  by:  IDBAL 

This  table  references  the  status  constant  stringy  VALU*  VPOS  Is 
the  byte  nvunber  In  VAI^  containing  the  first  byte  of  the  first 
status  label  of  this  variable.  NVAL  is  the  nuober  of  status  labels 
of  this  variable.  NSTAT  is  the  nuoiber  of  entries  in  this  table. 

DICT  entries  defining  status  variables  contain  a  reference  to  this 
table  in  BRGT. 

Item  Express  Used  by:  IDB/iL,  POOL 

Used  for  teotporary  storage  for  STC  characters  in  IDEAL.  Also  used 
for  communication  between  IDEAL  and  POOL  when  LIKE  tables  are  being 
processed. 

Item  Local  Used  by:  CAN 

Used  for  storing  STC  characters. 

Item  Express  Used  by:  MP,  ERROR,  LOOK 

Counter  containing  the  nuoiber  of  statements  found  since  last 
statement  label  in  the  main  program. 

Item  E^^ress  Used  by:  MP,  ERROR 

Set  to  the  channel  nuoiber  of  the  last  statement  label  in  the 
main  program. 

Input  Peurameter  Local  Used  by:  SCON 

A  Boolean  indicator.  If  STORE  is  true,  SCON  stores  statl;  if  false, 
it  searches  STAT  table  for  status  in  chazuiel  referenced  by  INDEX. 

Item  E:qpress  Used  by:  MP,  IDEAL 

Set  to  the  entry  in  table  BCE  of  the  separator,  operator  or  bracket 
processed  most  recently. 

Subscripted  item  Local  Used  by:  LOOK 

Item  in  unnamed  table  'vdilch  gives  entrance  value  into  switch  GT  for 
each  value  in  item  SC. 

Item  Express  Used  by:  MP,  ENXR, 

,,  . 

Boolean  variable  set  to  1  when  StfITCH  declaration  is  being  processed. 
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SHCN  Item  E^qprese  Used  by:  IDEAL,  HP 

This  item  is  set  to  the  eviteh  channel  mudber  and  Is  used  as  teapo> 
rsry  storage  for  an  Index  to  the  dictionary  vhen  a  switch  is  being 
processed. 

SUDS  Item  E^gpress  Used  by:  Main  program 

Boolean  item  set  to  1  when  the  dollar  sign  terminating  a  switch 
declaaratlon  is  encountered* 


1 

I 

I 

I 

I 


I 


I 
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TO 

Item 

Teaporary  storage  register  in  CAN. 

Local 

Used  by: 

CAN 

T1 

Item 

Used  as  an  Integer  counter. 

Local 

Used  by: 

BINRY 

T1 

Item 

Temporary  storage. 

Express 

Used  by: 

IDEAL,  GET2 
(3T3,  IMP 

T2 

Item 

Express 

Used  by: 

CAN,  IDEAL, 
SCON,  Dff 

Used  as  two-way  coomunication  between  CAN  and  IDEAL.  In  IDEAL,  T2 
Is  used  for  teaqporary  storage  as  with  table  declarations.  Also, 
if  searching  for  an  Identifier,  CIAS  Is  stared  in  T2  teoporarily  if 
one  if  found  to  look  like  the  sane  identifier. 

T2  »  0  informs  CAN  that  the  constant  being  processed  is  literal 

T2  -  1  Informs  CAN  that  the  constant  being  processed  is  a 

parameter  for  a  single  variable  which  is  to  be  defined 
by  the  constant. 

T2  >  1  is  the  DICT  index  of  the  variable  for  which  this 
constant  is  a  pre-as^igned  parameter. 

T3  Item  Express  Used  by:  HASH,  IDEAL, 

IMP,  POOL,  SRCH 

Used  for  teqqporary  storage;  normally  as  an  index  to  IMS. 

T4  Item  Eaqpress  Used  by:  HASH,  SRCH, 

IDEAL,  POOL 

Internal  index  into  DISH,  this  is  the  HASHed  entry  plus  one. 


Item  E:q>ress  Used  by:  IDEAL,  SC0N,(!ET2 

CST3,  IMP,  CAN, 
ERROR 

Teag>orary  storage  for  the  number  of  characters  to  be  processed. 

Subscripted  item  from  table  TPY  Express  Used  by:  HASH 

Overlays  the  first  10  bits  of  the  identifier  in  TH  that  is  to  be 
"hashed." 
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ITT  Subscripted  Item  from  table  TPY  Express  Used  by:  HASH 

Overlays  the  secoxul  10  bits  of  the  Identifier  in  TH  that  is  to 
be  "hashed.** 

!I6  Subscripted  item  from  table  TPY  E^qpress  Used  by:  HASH«  BIHBY 

In  HAfflf  t6  overlays  the  third  10  bits  of  the  identifier  in  IR  that 
is  to  be  '*hashed.**  In  BIHRY,  l6  is  used  as  temporary  storage  for  the 
bytes  of  the  identifier  \dille  it  is  being  converted. 


T9 

Subscripted  item  from  table  TPY 

E^qpress 

Used  by: 

HASH 

Accumulated  sum  of  t6|  T7>  and  t6. 

nils  is  the  **hashed** 

identifier. 

TIO 

Item 

Local 

Used  by: 

BINRY 

Used  to  retain  powers  of  ten  in  the 

STC  to  binary  conversion  process. 

TIO 

Item 

Local 

Used  by: 

IDEAL 

.. 

Used  for  temporary  storage. 

TIO 

Item 

Express 

Not  Used 

-• 

Til 

Item 

E::gpress 

Used  by: 

IDEAL 

Used  for  temporary  storage. 

T12 

Item 

Express 

Used  by: 

IDEAL,  IMP, 

SCON 

Used  for  temporary  storage. 

' 

T13 

Item 

EJ^ress 

Used  by: 

IDBAL,  POOL, 

Ilf*,  SCOH 

1 

Contains  the  dictionary  entry  reserved  for  the  variable  to  be 

defined. 

V 

T13 

Item 

Local 

Used  by: 

HASH 

i 

Used  for  teoporary  byte  number  storage. 

I 

T14 

Item 

Express 

Used  by: 

IDEAL 

Used  for  temporary  storage. 

j 

T15 

Item 

Express 

Used  by: 

IDEAL 

1 . 

Temporary  storage  for  RSON  (reason  for  entry) 

e 

1! 

I 
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T16 

Item 

Counter  used 

Local  Used  by: 

vhen  an  ARRAY  is  being  processed. 

IDEAL 

TIT 

Item 

Counter  used 

Local  Used  by: 

\dien  an  ARRAY  is  being  processed 

IDEAL 

TAPE 

Item 

Ebqpress  Used  by: 

PDICT 

STC  variable 
printing. 

vhich  holds  one  line  of  the  DICT  output  image  for 

TBBP 

Item 

E^qpress  Used  by: 

DP,  IDEAL 

A  Boolean  variable,  \Aiich  Is  set  to  1  If  a  table  declaration  is 
being  processed. 


TCD  Item  E^^ress  Used  by:  TSFIM, 

Main  program 

Set  to  entry  of  CARD  vhich  contains  first  character  ftom  JOVIAL 
source  language  card  ii^t. 

ICDl  Item  Express  Used  by:  L0(EC,  TSUM, 

Hain  program 

Set  to  entry  of  CARD  vhich  is  6  less  than  entry  that  contains  last 
character  from  JOVIAL  source  lemguage  csurd  input. 

TCD2  Item  E:qpress  Used  by:  TSTIN, 

Main  program 

Set  to  entry  in  CARD  vhich  is  6  less  than  entry  tbat  contains  first 
character  from  JOVIAL  source  language  input. 

TCH  Item  Local  Used  by:  LOOK 

STC  item  used  to  hold,  tvo  characters  to  test  them  against  special, 
characters  in  item  SC* 

TORN  Item  Ibqpress  Used  by:  IDEAL,  IMP 

If  a  tabls  is  being  processed,  TCHN  is  set  to  the  actual  table  channel 
nunber  of  TBBP.  When  not  processing  a  table,  TCHN  is  used  in  an 
aobiguous  case  of  identifier  overlap  for  storage  purposes.  When  an 
identifier  is  being  processed,  and  may  be  EXPRESS  in  the  main  program 
but  also  LOCAL,  TCHN  is  then  used  as  teoqporary  dictionary  reference 
storage . 
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TEMl 

0BC2 

lEXT 

TIB 

TTIM 

TFIBM 

TH 

TIPS 

TITIE 


Item  Local  Used  by:  LOOK 

TUoporary  storage  used  \dien  processing  defined  identifiers. 

Item  Local  Used  by:  LOOK 

Teoporaiy  storage  used  >dxen  processing  defined  identifiers. 

Item  Egress  Used  by:  MP,  LOOK,  IDBAL, 

BINRY,  HASH,  ERROR, 
SOCK,  SRCH,  GET2, 
IMP,  CAN,  POOL, 
FNRC,  MUV,  CfflXT 

Index  in  IDNT  which  is  set  to  the  location  of  the  first  byte  in  one 
half  of  IDNT  into  which  the  next  part  of  speech  will  be  placed  by  LOOK. 

Siibscrlpted  item  Local  Used  by:  PDICT 

SIC  variable  in  an  uimamed  table  containing  preset  data  which  gives 
a  mnemonic  name  for  each  possible  value  of  the  Did  item  TIBM. 

Subscripted  item  from  table  Did  Express  Used  by:  PDICT,  IDEAL, 

POOL 

If  dAS  equals  table: 

0  s  null 

1  s  parallel  table 

2  s  serial  table 

Subscripted  item  from  table  DICTM  E:q?ress  Used  by:  IDEAL 

Identical  to  the  dictionary  item  TERM. 

Subscripted  item  from  table  OB  Express  Used  by:  HASH,  BINRY 

In  HASH,  the  STC  variable  TH  contains  five  or  less  bytes  of  the 
identifier  that  is  being  "hashed."  In  BINRY,  TH  is  used  for  tenqporary 
storage  for  five  or  less  bytes  of  the  identifier  that  is  being  con¬ 
verted  from  an  STC  to  a  binary  integer. 

Item  Express  Used  by:  MP,  INRC,  OET2, 

GET3,  IDEAL, 

SCON,  IMP 

Contains  the  type  (output  from  LOOK)  of  the  part  of  speech  currently 
beitig  processed. 

Item  Local  Used  by:  PDId 

STC  variable  containing  preset  data  giving  the  heading  printed  above 
the  dictlonazy  entries  printed  by  PDICT. 
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TP 

TPl 

Bpy 

TREGN 

TRBONM 

T8ID 

T8TIM 

TSTR 

!IXXT 


Item  Express  Used  by:  TSTIM> 

Main  program 

Set  to  1  less  than  the  number  of  bytes  per  word. 

Item  E^qpress  Used  by:  TSTIM> 

Main  program 

Set  to  1  less  than  the  number  of  words  per  card  image. 

Table  Contains  Items:  TH>  t6>  T7>  T8,  T9 

Express  Used  by:  HASH,  BIHBY 

A  table  used  while  HASHlng  an  Identifier.  HASH  stores  19  to  five 
characters  at  a  time  in  TH  which  is  superloiposed  over  t6,  T7,  A  T6. 
These  are  then  added  together  and  the  sum  placed  in  T9  in  tte  follow¬ 
ing  manner.  Starting  with  the  left  most,  up  to  five  characters  are 
stored  at  a  time  In  TH.  Ttieae  are  right  Justified  with  leading  blanks. 
When  cooqpleted,  they  are  taken  from  TH,  ten  bits  at  a  time  (truncating 
If  any  result  exceeds  ten  bits),  added  together  In  T9*  T9  plus  one 
will  then  be  placed  In  t4.  t4  is  then  used  as  an  index  to  DISH. 

Subscripted  item  from  table  DICT  Express  Not  used 
If  CIAS  eqxials  procedure: 

Specifies  the  starting  level  of  Internal  teaQ>orary  storage 
required  by  the  procedure. 

Subscripted  Item  ftom  table  DICTM  E3q>ress  Not  used 

Identical  to  TREGN  in  the  dictionary. 

Item  E^qpress  Used  by:  MP 

STC  variable  used  to  save  one  card  of  direct  code  before  It  is 
output. 

Procedure 

Procedure  which  reads  the  Hollerith  input  tape. 

Item  Express  Used  by:  MP,  TSTIM 

STC  variable  Into  which  one  card  at  a  time  is  read  from  the  Hollerith 
input  tape  (HIN). 

Item  Express  Used  by:  LOOK.,  CHIXT, 

Main  program 

Set  to  the  first  byte  in  either  the  first  or  second  half  of  IDNT.  If 
the  first  half  of  IDNT  Is  being  used  by  LOOK  to  store  a  constant  or 
identifier,  TXXT  is  set  to  the  second  half  and  vice  versa. 
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TC 


TYP 

TXP 


TYPV 


TYPVM 


Subscripted  item  Local  Used  by:  LOOK 

Item  In  unnamed  table  that  ccmtalns  type  value  for  each  special 
character  listed  In  Item  SC* 

Item  Local  Used  by:  CAN 

Item  synonymous  with  TYFV  In  DICT* 

Subscripted  Item  Local  Used  by:  FDICT 

SIC  variable  In  an  unnamed  table  containing  preset  data,  vhich  gives 
a  mnemonic  name  for  each  possible  value  of  the  DICT  item  TXPV. 


Subscripted  item  from  table  DICT  Ejqpress  Used  by: 


CAN,  mP,  PDICT, 
IDEAL,  POOL 


Specifies  the  type  of  constant,  item,  subscripted  item  or  array: 


0  «  null 

1  >  fixed  point  (A) 

2  «  Boolean  (B) 

3  «  dual  fixed  point  (d) 

4  ■  floating  point  (P) 

5  -  Hollerith  (H) 

6  <■  integer  (l) 

Note:  For  FII£,  set  to  7* 
Subscripted  item  from  table  DICOf 


Parallel  to  TXPV  in  the  dictionary 


7  *  status  (s) 

8  >  octal  (0) 

9  -  8TC  (T) 

10  *  dual  inter  (K) 

11  >  dual  octal  (Q) 

12  »  (error) 


E:qpress  Used  by:  IMP,  EBEALj 

CAN 
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UREl  Subscripted  Item  from  table  PIBE  Express  Used  by:  MP 

Contains  first  character  byte  in  IDNS  of  undeclared  procedure  name. 

URE2  Subscripted  Item  from  table  PURE  Express  Used  by:  NP 

Contains  number  of  characters  In  xmdeclared  procedure  naise. 
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VAL 

VAUC 

VALU 

VCATC 

VCATP 

VLUB 

VP 

VPOS 

I 

I 

If 

r 

r 


Item  Local  Used  by:  CAN 

Tbls  contains  the  value,  actual  nuniber,  of  an  A  or  E  factor. 

Subscripted  Item  from  table  SEI19C  Express  Used  by:  MP 

Contains  preset  data  for  setting  the  value  of  Kl,  the  left  term  In 
a  triplet. 

Item  Express  Used  by:  SCON 

VALU  Is  a  string  containing  statvis  values,  me  statl  are  stored  with 
a  separator.  Thus,  V(ABC)  will  be  stored  as  ABCA  vhere  A  Is  an 
octal  77(STC)  or,  effectively,  a  blank. 

Item  Express  Used  by:  HP 

Contains  CATC  for  CAT  entry  following  the  TERM  operator. 

Item  Express  Used  by:  Iff 

Contains  CATF  for  CAT  entry  following  the  TERM  operator. 

Subscripted  item  from  table  CED  E:q>ress  Used  by:  MP 

Contains  preset  data  which  Is  the  XI  values  which  Immediately 
precede  a  unary  operator. 

Item  Local  Used  by:  LOOK 

Saves  subscript  value  when  processing  a  floating  point  constant. 

Subscripted  Item  from  table  STAT  E^qpress  Used  by:  SCON 

This  Is  the  first  byte  of  status  values  for  this  particular  entry. 
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VQHIN  Subscripted  Item  from  table  BCE  Eatress  Used  by:  MP 

Item  in  table  BCE  \ihieh  gives  entrance  value  for  svltch  S3  for 
each  separator,  operator,  or  bracket. 

WORD  Item  Express  Used  by:  NP,  PKEtC 

Stores  identifier  being  processed  while  it  is  being  coopared 
against  item  DELIM  to  determine  whether  it  is  a  recognlsabla  part  of 
speech . 
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XX 

Item 

Teoporary  storage  varialile. 

Express 

Used  by: 

MP 

XX 

Input  Parameter 

Local 

Used  by: 

LOOK 

Iiqput  parameter  giving  reason  for  procedure  call* 
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Output  Parameter  Local  Used  by:  LOOK 

Output  parameter  giving  type  of  part  of  speech. 

Input  Parameter  Local  Used  by:  ERROR 

Input  parameter  to  ERROR  which  contains  the  error  type  to  be  printed. 
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ZZ  Output  Parwaater  Local  Used  by: 

Output  parameter  giving  number  of  characters. 

ZZ  Item  E^gpress  Used  by: 

Set  to  nuid>er  of  entries  for  output  of  final  segment  of 


LOOK 

Main  program 
CAT. 
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C.  DESCRIPTION  OF  THE  CSNl  MON  PROGRAM  (MP)  REGIONS 
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1.  a. 

b. 

c. 

d. 


2  •  ft* 

b. 

c. 

d. 


Name  -  JG^IN 

Description  -  Does  initialization,  checks  for  STfUlT  at  the  beginning 
of  the  JOVIAL  source  program,  and  looks  at  the  next  part  of  speech. 

Procedures  called  _  TSTIM,  LOOK,  ERROR 

Operations  - 

1.  Sets  machine  dependent  variables  CDCLl,  euid  CLSIN. 

2.  Presents  sioople  variables  and  tables  FIND  and  CAT  to  zero. 

3.  Goes  to  procedure  IDEAL  for  its  initialization  pass. 

4.  Reads  in  the  first  card  and  checks  for  the  end  of  a  set  of  Jobs. 

3.  Puts  START  in  CAT  and  checks  for  a  START  curator  as  first  part  of 
speech.  If  no  START,  prints  error  message. 

Name  -  SI^TF 

Description  -  Finds  proper  entry  in  the  legality  matrix  and  processes 
the  middle  term  of  the  current  triplet  accordingly. 

Procedures  called  •  LOOK 

Operations  - 

1.  Looks  at  the  next  part  of  speech. 

2.  If  part  of  speech  is  "DIRECT",  goes  to  process  direct  code  statement. 

3.  If  part  of  speech  is  and  is  inside  of  DIRECT-JOVIAL  brackets, 
goes  to  finish  processing  ASSIGN  statement. 

4.  Looks  at  the  next  peurt  of  speech  to  set  the  value  of  the  right 
term  in  the  triplet. 

Checks  for  DIRECT  as  the  next  operator,  or  A(  (accumulator 
designator)  as  the  current  part  of  speech. 

6.  Finds  the  entry  in  the  legality  matrix  corresponding  to  the  left 
and  right  terms  in  the  triplet  tmd  goes  to  switch  SI. 
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3>  a.  Name  -  CHEND 

b.  Description  -  Checks  for  TERM  being  bypassed  in  case  of  an  error. 

c.  Procedures  called  -  none. 

d.  Operations  - 

1.  Checks  for  the  TERM  operator  being  missed  because  of  a  call  to  PNRC. 

2.  In  case  TERM  has  been  missed,  the  TERM  operator  is  put  in  the  GAT 
table  and  the  pregram  is  completed  normally. 

U.  a.  Name  -  XlOO 

b.  Description  -  Prints  CAT  table  entry  if  desired  and  increments  index 
in  CAT. 

c.  Procedures  called  •  RECRD. 

d.  Operations  •  Calls  RECRD  to  print  the  last  CAT  entry  and  Increments  the 
index  in  CAT  (U). 

5.  a.  Name  •  X2 

b.  Description  -  Processes  separators,  operators  and  brackets. 

c.  Procedures  called  -  ERROR,  PNRC. 

d.  Operations  - 

1.  Checks  for  part  of  speech  with  type  less  than  I8  (special  character). 

2.  If  not,  checks  Identifier  against  table  of  operators,  and  if  found, 
sets  CATC  and  GATF,  cuid  sets  Kl,  the  valvie  of  the  left  term  in  the 
next  triplet. 

6.  a.  Name  >  Xl4 

b.  Description  -  Checks  legality  matrix  entries  of  6,  7  or  8. 

c.  Procedures  called  -  ERROR,  IRRC. 

d.  Operations  • 

1.  Checks  the  variable  MITP  to  see  vhich  legality  matrix  entry  vas 
encountered  and  goes  to  the  spot  approrprlate  for  an  entry  of 
2,  3  or  4. 

I 
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7.  a.  Hame  -  XI3 

b.  Description  -  Mates  special  ctecks  after  processing  the  mldclle  term  of 

a  triplet. 

c.  Procedures  called  -  RECBD. 

d.  Operations  - 

1.  Checks  to  see  If  a  procedure  Is  being  processed  emd  if  so  goes  to 
do  special  checks. 

2.  Prints  last  entry  In  CAT  If  desired  and  Increments  the  Index  In 
CAT  by  1. 

3.  Checks  to  see  If  the  next  part  of  speech  to  be  processed  Is  DIRECT^ 

If  IDEAL  has  been  executed,  or  If  an  ASSIGN  statement  has  Just  been 
completed. 

4.  Sets  the  value  of  middle  term  of  the  next  triplet  to  be  processed. 

8.  a.  Name  >  XIO 

b.  Description  -  Nates  speclcd  checks  on  parts  of  speech  with  type  less 

than  18. 

c.  Procedures  called  -  ERROR,  INRC. 

d.  Operations  - 

1.  Sets  K1  value  for  the  left  term  of  the  next  triplet  to  be  processed. 

2.  Checks  for  period  after  a  statement  label.  If  so,  and  the  statement 
label  Is  not  a  procedure  output  parameter,  the  label  Is  saved  for 
error  printout. 

3.  Checks  for  a  right  parenthesis.  If  so,  checks  to  see  If  It  Is  being 
used  In  a  nested  modifier  to  keep  track  of  vhlch  parenthesis  should 
be  eliminated  from  CAT.  Checks  Boolean  item  RTPAR  to  see  If  this 
parenthesis  should  be  eliminated. 

4.  Sets  CATC  and  CATF  for  this  part  of  apeech. 

5.  Checks  for  dollar  sign.  If  so,  checks  for  the  end  of  an  Item 
switch  to  subtract  one  from  the  number  of  switch  points.  If  a  switch 
Is  being  processed  (SHBP)  set  switch  dollar  sign  Indicator  (SHDS) 

to  on  and  SHBP  to  off.  If  the  nested  modifier  parenthesis  table  Is 
not  cleared  out,  print  error  message  and  clear  out  table.  Increment 
the  statement  counter,  and  check  to  see  if  the  capacity  of  CAT  has 
been  reached.  If  so,  write  out  CAT. 
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B>  d.  6.  Checks  for  plus  {+)  or  minus  (-).  If  so,  checks  for  a  unazy  opera¬ 
tor*  A  vmary  plus  Is  eliminated  from  CAT,  and  the  value  of  a  unary 
minus  is  changed. 

7.  Checks  for  left  parenthesis.  If  so,  and  a  nested  modifier  Is  being 
processed,  the  appropriate  counter  Is  Incremented. 

8.  Checks  for  a  switch  being  processed  (SWBP  on).  If  so,  counts  commas 
for  the  number  of  switch  points,  and  counts  parentheses  to  determine 
whether  an  Identifier  inside  of  a  switch  Is  a  statement  label  or  not. 

9.  Goes  to  process  next  triplet. 

9.  a.  Name  -  Xl^ 

b.  Description  •  Makes  special  checks  when  procedure  Is  being  processed. 

c.  Procedures  called  -  none 

d.  Operations  - 

1.  Sets  PTYP  to  proper  setting  for  Input  or  output  parameter. 

2.  Checks  for  EEGIN  and  END  and  counts  brackets  accordingly.  When  the 
bracket  counter  reaches  zero,  the  CAT  entries  for  the  procedure  are 
written  out. 

3*  When  procedure  is  completed,  if  JOVIAL  library  Is  being  processed, 
return  Is  made  to  read  more  library.  If  not,  goes  back  to  process 
next  triplet. 

10.  a.  Name  -  X3 

b.  Description  -  Processes  constants,  simple  variables,  files,  and  single 

letter  subscripts  declarators. 

c.  Procedures  called  -  ERROR,  FNRC,  ENTER,  LOOK. 

d.  Operations  - 

1.  Checks  for  a  constant.  If  so,  a  call  to  ENTER  Is  made, 

2.  Checks  for  a  single  letter  subscript.  If  so,  an  entry  is  made  in  CAT. 

3.  In  all  other  cases,  a  simple  variable  Is  assumed  and  a  call  is  made 
to  ENTER.  Upon  return,  a  check  is  made  for  a  procedure,  switch  or 
close  declaration,  or  a  table,  item,  etc.,  declaration. 

I 
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11.  a.  Naoe  -  X26 

b.  Description  -  Processes  the  first  part  of  a  switch  declaration. 

c.  Procedures  called  -  ERR0R>  LOCK,  EinSR>  RECRD 

d.  Operations  - 

1.  Turns  on  SHBP  and  initializes  peorenthesis  counter  IKCT. 

2.  Med&es  a  call  to  ENTER  with  the  switch  name. 

3.  Checks  to  see  if  switch  is  an  item  or  numeric  switch.  If  switch  is 
an  item  switch,  NORI  is  turned  on  and  a  call  is  made  to  ENTER  with 
the  item  name. 

k.  Puts  entries  in  CAT  for  the  jsarts  of  speech  in  the  declaration  pro* 
cessed  so  feir. 

12.  a.  Name  -  X27 

b.  Description  >  Processes  beginning  of  procedure  declaration. 

c.  Procedures  called  -  ERROR,  LOOK,  RECRD,  ENTER 

d.  Operations  - 

l.  Checks  for  PRBP  being  already  on.  If  so,  reports  error  and  writes 
out  previous  portion  of  CAT  as  a  procedure. 

2.  Turns  on  PRBP  (procedxire  indicator)  and  sets  bracket  counter 
(BRCTR)  to  zero. 

3.  Calls  ENTER  with  procedure  name. 

13  •  a.  Name  -  X28 

b.  Description  •>  Processes  beginning  of  close  declaration. 

c.  Procedures  called  -  RECRD,  ERROR,  FNRC,  LOOK,  ENTER 

d.  Operations  - 

1.  Calls  ENTER  with  close  name. 
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1^.  a.  Name  >  X4 

b.  Description  -  Processes  modifier  or  procedure  name. 

c.  Procedures  called  -  ERROR,  FRRC,  EN'IER* 

d.  Operations 

1.  CoaQ>ares  Identifier  with  list  of  modifiers  in  table  BCE  and  if 
successful,  an  entry  Is  made  in  CAT. 

2.  If  not,  a  call  Is  made  to  EITIER  with  the  procedure  name. 

1^.  a.  Name  -  X30 

b.  Description  -  Processes  the  table  name  modified  by  RENT,  ENT,  ENTRY, 
NNDSEN,  ALL. 

c.  Procedures  called  «  LOGC,  ENTER. 

d.  Operations  > 

1.  Calls  ENTER  with  the  table  name  modified. 

2.  Adds  one  to  Index  in  table  FIND,  emd  adds  one  to  entry  In  FIND  to 
Indicate  a  new  modifier  hats  been  encountered. 

16.  a.  Name  -  X31 

b.  Description  -  Nates  entry  in  CAT  for  modifier  ABS. 

c.  Procedures  catUed  -  none. 

d.  Operations  - 

1.  Mattes  entry  In  CAT  for  modifier  ABS. 

17.  a.  Name  -  X33 

b.  Description  -  Does  additional  processing  on  NANT,  CHAR,  ODD,  POS. 

c.  Procedures  called  -  ERROR,  LOOK. 

d.  Operations  - 

1.  Adds  one  to  the  Index  In  table  FIND  and  adds  one  to  entry  In  FIND 
to  indicate  a  new  modifier  has  been  encountered. 

2.  Subtracts  one  from  Index  In  CAT  to  allow  for  modifier  going  In  CATB. 
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18. 


19. 


a. 


b. 


c. 


d. 


a. 


b. 


c« 


d. 


Naoe  - 

Description  -  Processes  BIT>  BTEE^  DEAD  or  subscripted  variable. 
Procedures  called  -  ERROR,  FNRC,  EN'IER. 

Operations  - 

1.  Checks  the  identifier  against  BIT,  BYTE  or  BEAD,  and  if  a  match  is 
made,  makes  an  entry  in  the  CAT  table. 

2.  If  no  match  is  made,  a  call  to  EMTER  is  made  with  the  subscripted 
variable  name. 

Name  -  X6 

Description  -  Processes  statement  labels  and  close  labels. 

Procedures  called  -  ERROR,  FNRC,  ENTER. 

Operations  - 


1.  Checks  for  label  within  a  procedure  heading.  If  so,  sets  PSSL  to  1. 

2.  Calls  JsH'rcn  with  proper  setting  of  PARAM  for  statement  or  close 
label. 


20.  a.  Name  -  X7 

b.  Description  -  Decides  what  to  do  for  matrix  value  of  6,  7,  or  6. 

c.  Procedures  called  -  none. 


d.  (^rations  - 

1.  Checks  for  constant  or  single  letter  subscript  and  if  so,  goes  to 
process  them. 

2.  Sets  MTYP  according  to  legality  coatrix  value  eoid  goes  to  check  for 
separator,  operator  or  bracket. 
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21.  a.  Name  -  DRCT 

b.  Description  -  Processes  direct  code. 

c.  Procedures  called  -  TSTIM. 

d .  Operations  - 

1.  Presets  indicators  and  reads  in  one  card  of  direct  code  and  moves 
it  to  TSTD. 

2.  Searches  for  word  JOVIAL.  If  found,  sets  indicator  (INDIR)  to  say 
no  more  direct  code  and  puts  entry  in  CAT  for  last  batch  of  direct 
code  and  then  returns  to  processing  in  the  regular  manner. 

3.  Searches  for  word  ASSI(^.  If  found,  puts  entry  in  CAT  for  last 
batch  of  direct  code  and  ret\ims  to  process  the  ASSIGN  statement. 

4.  If  neither  JOVIAL  nor  ASSIGN  is  found  on  the  next  card,  the  card  is 
output  to  the  direct  code  file  (DIRCT),  and  another  card  is  looked 
at. 

22.  a.  Name  -  PRAC 

b.  Description  -  Processes  accumulator  designator  in  ASSIGN  statement. 

c.  Procedures  called  _  RECRD,  L0(XC,  ERROR,  DTOB. 

d.  Operations  - 

1.  Places  proper  entry  in  CAT  for  accumulator  designator  in  ASSIGN 
statement . 


23.  a.  Name  -  HTDS 

b.  Description  -  Processes  dollar  sign  ending  ASSIGN  statement. 

c.  Procedures  ceQled  _  RECRD. 

d.  Operations  * 

1.  Sets  entry  in  CAT  for  the  dollar  sign  and  goes  back  to  process 
more  direct  code. 
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24.  a.  Name  -  PRIP 

b.  Description  -  Takes  care  of  error  vhen  procedure  declaration  appears 
within  proced\ire  declaration. 

c.  Procedures  called  -  ERROR. 

d.  (^rations  - 

1.  Prints  error  message  and  goes  to  write  out  previous  procedure  If 
necessary. 

25.  a.  Name  -  X12 

b.  Description  -  Finishes  processlxig  after  TERM  operator  has  been  found 
and  writes  out  last  portion  of  CAT. 

c.  Procedures  called  -  CETOCT,  ENTER>  RECRD. 

d.  Operations  " 

1.  Vl'ltes  out  the  portion  of  CAT  remaining  in  memory. 

2.  Checks  to  see  If  a  statement  label  follows  TERM.  If  so,  calls  ENTER 
to  process  label. 

3.  Makes  an  entry  in  CAT  for  the  dollar  sign  following  TERN. 

4.  Checks  to  see  if  a  library  tape  Is  available.  If  not,  goes  to 
finish  up  processing. 

Searches  dictionary  (DICT)  for  luideclared  procedures.  If  none,  cadis 
ENTER  to  allow  IDEAL  to  do  its  finad  processing  atnd  writes  out  portion 
of  CAT  remaining  In  memory. 

6.  Returns  to  control  program. 

26.  a.  Name  -  10 

b.  Description  -  Processes  l/O  operators. 

c.  Procedures  called  -  LOOK 

d.  Operations  - 

1.  Sees  the  proper  entry  Is  made  In  CAT  for  INPUT  or  OUTPUT  following 
OPEN  or  SHUT  operator. 


1 

I 
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75 

(page  76  blank) 


27>  a.  Name  -  GTPR 

b.  Description  -  Matches  the  library  Index  against  the  list  of  undeclared 
procedure  names,  to  find  addltlonail  procedures  In  the  library  that  must 
be  called  In  from  the  library  file. 

c.  Procedures  called  >  TSTIM,  LOOK,  ERROR,  IDEAL. 

d.  Operations  - 

1.  Presets  simple  Items  and  saves  CAT  entry  following  the  entry 
for  TERM. 

2.  Zeros  out  CAT  and  reads  first  card  In  from  the  library  file. 

3.  Coapeures  the  list  of  undeclared  procedure  names  with  the  procedure 
names  In  the  library  Index.  When  a  match  Is  fouxid,  any  additional 
procedures  listed  as  being  used  which  eo:e  not  already  In  DICT  are 
entered  In  DICT  via  a  call  to  IDEAL. 

28.  a.  Name  -  GTP5 

b.  Description  -  Compares  undeclared  procedure  names  against  procedure 
names  as  they  are  encountered  In  the  procedure  declarations  In  the 
library  file. 

c.  Procedures  called  -  LOOK,  CHIXT,  DTOB,  TSTIM. 

d.  Operations  - 

1.  Cooqpares  the  procedure  name  from  the  declaration  In  the  library  file 
with  each  name  In  the  list  of  undeclared  procedures.  If  a  match 
occurs,  the  declaration  Is  processed  as  though  It  were  peort  of  the 
JOVIAL  source  program. 

2.  If  no  match  Is  found,  the  ceuds  In  the  procedure  declaration  are 
skipped,  and  the  next  procedure  name  Is  exetmlned. 

29<  a.  Name  -  GTP7 

b.  Description  -  Place  TERM  entry  In  CAT  and  goes  to  finish  processing  and 
output  CAT. 

c.  Procedures  called  -  RECRD 

d.  Operations  - 

1.  Places  TERM  entry  In  CAT. 

2.  Checks  for  statement  label  after  TERM,  and  If  so,  places  entry  In  CAT, 
adds  CAT  entry  for  and  goes  to  finish  processing  and  write  out  CAT. 


10  JtOy  1962 


77 


aM-555/020/00 


D.  DESCRIPnON  OF  THE  CSOa  PROCEDURES 
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BIBRY 


a.  Uns4;iied  Integers  of  5  or  less  digits,  coded  In  6-blt  STC,  are  converted 
to  binary  integers.  A  -i-O  is  ensured  against  the  possibility  of  a  hardware 
distinction  between  +0  and  -0.  If  a  non-dlglt  is  detected,  +0  results. 

Output  is  available  for  lamediate  assignment. 

b.  Input  parameter 

NUMB  »  number  of  digits  in  the  integer  for  coiirerslon. 

Output  parameter 

BIBRY  »  converted  results  ready  for  immediate  assignment. 

c .  Local  variables 

T1 

TIO 

d.  Express  vaorlables 

TH 

T8 

TEXT 

IDBT 

e.  Bo  procedures  called. 

f.  Entered  from 

IMP 

IDEAL 

g.  A  powers  of  10  multiplier  is  started  at  10°,  l.e.,  one.  Digits  are  processed 
from  the  right  to  the  left.  Each  digit  is  examined  for  the  range  0  to  9> 
l.e.,  octal  60  to  octal  7I;  In  6-blt  SIFC.  Fhllure  results  in  a  -t-O  output 
and  immediate  exit.  Each  digit  is  converted  by  subtracting  octal  60,  multi¬ 
plying  by  the  powers  of  ten  multiplier,  and  accumulating  the  sums  of  the 
products.  !nie  powers  of  ten  multiplier  is  multiplied  by  ten  prior  to 
processing  the  next  digit  left.  The  Integer  is  accessed  in  IDNT  using  TEXT 
and  NUMB.  Results  are  prepared  for  immediate  assignment  (accumulator 
stored) . 
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BTOP 

a*  BIOD  Is  a  function  converting  a  binary  Integer  to  9TC. 

b.  Input  paraoeter 

AA  °  number  to  be  converted. 

No  output  parameters. 

c.  No  local  variables. 

d.  No  express  variables. 

e.  No  procedures  called. 

f.  Entered  from 

GAN 

EDICT 

RECRD 

SCON 

g.  nie  binary  Integer  AA  Is  converted  to  an  STC  Integer.  Results  are  pre> 
pared  for  Immediate  assignment. 
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CAN 


a*  CAN  analyzes  constants  and  exits  with  the  constant  converted  to  confom 
with  its  TXP7  or  the  TXPV  of  the  Item  to  which  it  is  associated. 

b.  No  input  parameters. 

No  output  parameters. 

c.  Local  variables 


BP 

IM 

R3 

ERT 

U 

Rl^ 

DAT 

L2 

SDT 

DIF 

L3 

SEP 

DOT 

NEG 

SGN 

DUL 

OCT 

STC 

DUN 

R1 

TO 

ERR 

R2 

TYP 

VAL 

Express  variables 

SRGTM 

TEXT 

IDNT 

TIPV 

NCHAR 

TYPVM 

FDA3M 

T2 

FDAT 

T5 

e.  Procedures  called 

HTO) 

ERROR 

f.  Entered  from 

IDEAL 

IMP 

SCON 

g.  The  constant  analysis  routine,  CAN,  is  called  to  process  constants.  This 
procedure  analyzes  and,  if  necessary,  alters  inputs  for  processing.  CAR 
works  with  the  contents  of  HJNT,  indexed  by  TEXT.  In  case  of  an  error, 
the  contents  of  IDNT  are  not  to  be  destroyed,  thus  a  buffer  string,  IM,  is 
used  to  hold  the  128  characters  for  CAN.  CAN  acutally  scans  IDNT  one 
character  at  a  time  in  building  IM}  when  completed,  the  entire  entry  is 
placed  back  in  IDNT.  In  processing,  decimal  points  are  removed  from  the 
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constant.  A  buffer,  BP,  is  used  for  traxisferrlng  a  portion  of  the  con¬ 
stant  and  then  overlsying  the  period  vhile  keeping  track  of  its  position 
far  the  E  factor. 


CAN 


mpur  raoM 

IDNS 


OUIPUT  FOBM  IN  IIIW8 
om  NOB-PAJH 


1.03 

10.3E-1  A5 
103  .E-2 
103E1 


103E-02 

103B-02 

103B-02 

TXPV-2,6,10; 

1030 

T«V-1,3>^: 

IO3OB+OO 

T3fPV-2,6,10: 

103 


103E-02 

IO3E-O2+O5 

103E-02 

1030 


103 


TYPV“1,3>^: 

103E+00 


If  the  constant  is  not  an  A  or  F  TXPV,  output  depends  on  TCFf .  If  TXPV»4 
or  PDAIVl,  unsigned  constants  are  prefixed  with  a  plus.  Boolean  constants 
greater  than  one  will  be  flagged  as  error.  If  the  constant  has  a  -^E 
factor  and  no  decloial  point,  CAN  generates  zeros.  A-E  factor  with  no 
decimal  point  is  consdlered  an  error.  If  data  described  m  being  unsigned 
but  is  signed,  the  "plus"  will  be  removed,  if  "minus"  it  will.be  removed 
and  also  flagged  as  an  error.  If  a  constant  is  described  as  being  signed 
but  no  sign  is  Included,  a  will  be  generated,  never  a  -. 
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cagT 

a*  CRIKT  reverses  the  index  In  HRIT. 

b.  No  liqput  parameters. 

No  output  parameters. 

c.  No  local  variables. 

d.  Express  variables. 

IXXT,  IXXT 

e.  No  procedures  called. 

f.  Entered  from 

Main  program 

g.  CBIIXT  exchanges  the  values  of  TEXT  and  BXT. 
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PIOB 

a*  DIOB  Is  a  function  converting  an  BTC  integer  to  binary. 

b.  Inoput  paraaeter 

Ak  •  tmiatv  to  be  converted* 

No  output  paraaeter 

c.  No  local  variables. 

d.  No  express  variables. 

e.  No  procedures  called. 

f.  Entered  from 

mP,  Main  Program 

g.  The  SIC  integer  AA  is  converted  to  binary  integer.  Results  are  prepared 
for  immediate  assignment 
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a.  EiniR  calls  ISBAL. 

b.  No  liiiput  parameters* 
No  output  parameters. 

c*  No  local  variables* 
d*  Esqpress  variables 


SHBP 

NCHAR 

NORI 

CATC 

Kl 

CATF 

BHCT 

U 

PARAM 

EECID 

e  *  Procedures  called 
IDEAL 

f  *  Entered  from 

FOOLj  Main  Program 

g*  ENISR  contains  a  call  to  IDEAL*  A  check  Is  made  In  ERIER  to  make  certain 
that  the  li^t  to  UXBAL  Is  correct  for  labels  Inside  SNITCH  declarations* 
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ERROR 

a*  IRRGR  prints  the  error  messages. 


h.  Input  parameter 


YY  ®  error  type  to  he  printed. 
No  output  parameters 
c.  No  local  variables. 


d.  Express  variables 


e. 


ERTY  NCHB  SDCT 
ERT  IDN8  arClR 
PRB>  FRST  TEXT 
FRCBD  FR8C  IDNT 
FCRB 

No  procedures  called. 


f .  Entered  from 


Main  Program 

ns* 

LOOK 

SCON 

TSTIM 

CAN 

POOL 

IDEAL 


g.  ERROR  prints  error  messages  giving  type  of  error  and  location  (amln  progran 
or  procedure  name  and  statement  label  +  number  of  statements).  Ihe  Input 
parameter  to  the  procedure  gives  type  of  error. 
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BBC 

a.  imc  provides  for  restarting  operation  after  an  Illegal  triplet  has  been 
detected. 

b.  No  Izqput  paxaneters 
No  output  paraneters 

c.  No  local  variables 

d.  Eiqpress  variables 


TIFE 

XPAL 

U 

NCRD 

NCBAB 

UNIT 

NKTCR 

mzM 

K1 

ECTBk 

e.  Procedures  called 

LOCK 

f.  Entered  from 

Main  Frogran 

g.  If  an  error  Is  found  In  processing  a  triplet^  the  scheoe  Is  disrupted  and 
It  Is  necessary  to  set  the  value  of  Kl,  the  left  term  of  the  next  triplet 
to  be  processed.  INRC  searches  the  source  proepcam  until  It  cooes  upon 

a  recognizable  part  of  speech.  This  part  of  speech  is  then  used  as  the 
left  one  In  a  triplet  and  processing  continues  from  this  point. 
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(gT2 

a.  The  procedure  LOOK  Is  called  to  hrlng  the  next  part  of  speech  Into  mn. 
Access  references  to  IDNT  are  bookkept  and  a  Boolean  indicator  is  set 
indicating  that  L0(BC  has  been  called. 

b.  No  input  parameters. 

No  output  parameters. 

c.  Local  variable 

CRN 

d.  Express  variables 


IDNT 

TEXT 

IDOL 

TIPS 

U 

T1 

NCHAR 

T5 

NXTCR 

e.  Procedvure  called 

LOOK 

f.  Entered  from 

IDEAL 

IMP 

SCON 

g.  1.  Set  TIFE  »  U  and  NCHAR  >  NXTCR. 

2.  Call  the  procedxu'e  LOOK  with  calling  parameters: 

2  ■  read  next  part  of  speech, 

LI  s  part  of  speech  code, 

NXTCR  number  of  characters,  if  supplied. 

3*  Test  TIPS  for  code  13  {•)  or  l4  (-f).  If  I3  or  l4,  call  LOOK  again 
and  prefix  correct  sign. 

4.  If  NCSAR  »  0,  set  NCHAR  «  1. 


T1  »  TIPS, 

T3  -  NCHAR, 

IDOL  ■  1  (true) . 


Set: 
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a*  The  procedure  LOOK  Is  called,  repeatedly,  if  necessary,  to  bring  the  first 
two  parts  of  speech  following  the  next  separator  into  IDNT.  Access 
references  to  IDITF  are  bookhept,  and  an  indication  that  L0C8C  has  been  called 
is  set. 

b.  No  iiq;>ut  parameters. 

No  output  parameters. 

c.  No  local  variables. 

d.  Ssqpress  variables 

IDOL 

LI 

NCHAR 

NXTCR 

UPE 

T1 


e .  Procedure  called 

LOOK 

f .  Entered  from 

IDEAL 

DIP 

g.  1.  Set  T1  =  TIPE,  TIPE  =  U,  and  NCHAR  =  NXTCR. 

2.  Call  the  procedure  LOOK  with  calling  peurameters  of: 

2  =  read  next  part  of  speech, 

LI  =  part  of  speech  code, 

NXTCR  =  number  of  characters,  if  supplied. 

3.  Test  Tl  for  code  of  4($).  If  T1  is  not  4,  repeat  the  process. 

4.  If  NCHAR  =  0,  set  NCHAR  =  1. 

5.  Set: 

Tl  «  TIPE 
T5  -  NCHAR 
IDOL  -  1  (true) 
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HASH 

a.  JOVIAL  Identifier  (l«e.>  labels  and  constants)  are  converted  from  6-bit 
STC  Inputs  to  an  index  value  between  1  and  1024  of  a  rapid  access 
dictionary  search  table >  DISH. 

b.  No  input  parameters. 

No  output  parameters. 

c.  Local  variable 

TI3 

d.  Express  variable 


FOND 

TEXT 

t6 

IDNT 

TH 

T7 

NCHAR 

T3 

t6 

NEXT 

t4 

T9 

e.  No  procedures  called. 

f.  Entered  from 

IDEAL 

POOL 

g.  A  schematic  of  table  TPY  follows 


>  '  '  I 

b27  |0 _ 9|  10  1920  29;  30-> 


I 

T 

- - 

1 

l_ 

- 1 - 

^  Unused 

To  femainder 

E  ■* 

bf  word 

M 

01 

) 

- 1 _ _ 

0  9110 _ 

1 

T9  I  Unused  remainder  of  void 
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Identifiers  in  6-bit  STC  are  transferred  from  IDNT  to  TH  starting  with  the 
leftmost  character  of  IDNT.  Five  characters  are  transferred  at  a  time. 
Fever  than  5  characters  may  be  transferred  if  the  number  of  characters  in 
the  identifier  is  not  divisible  by  5.  In  this  event,  the  odd  nuoiber  of 
characters  are  right  Justified  in  TH  with  STC  blanks  assigned  to  the  left 
character  positions.  After  each  transfer,  the  10-bits  in  t6,  TT  and  t8 
are  added  to  and  stored  in  the  acctimulated  sum,  T9.  Sums  exceeding  1023 
are  tnincated  by  the  assignment  to  T9  resulting  in  a  sum  modulo  1024.  The 
process  is  repeated  until  all  characters  in  the  identifier  have  been 
"hashed."  The  following  assignments  then  occur  before  exit  Is  made: 

t4  =  T9  +  1 

T3  =  NEXT  (next  available  byte  number  in  IDNS) 

FOND  =  0  (false) 
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nasAL 

a.  IDEAL  processes  declarations^  totally  or  partially,  invold.ng  the  aid  of 
specific  processing  procedxires  vhere  necessary.  It  prepares  the  dictionary 
(DICT)  entries  defining  labels  and  constants,  processes  preset  parameter 
constants  Included  with  declarations,  builds  IDNS,  VAUJ,  and  the  tables 
STAT,  OVER,  and  DISH. 

b .  Input  parameters 

RSON  =  reason  for  entry;  identical  to  PARAM 

NUMB  =  number  of  characters  In  the  Identifier  or  constant 
Output  parameters 

CLSS  =  CAT  table  class  of  processed  variable 

CHNL  =  channel  in  the  dictionary  defining  the  Identifier  or  constant 

c .  Local  variables 

EXES 

no 

T16 

TI7 

d.  Express  variables 


BRGT 

CHLl 

CHLIM 

CHLS 

CLAS 

CLASH 

CMPOL 

DEFN 

DEFIK 

DELBl 

DENT 

DICT 

DICOM 

DIMN 

DIMZ 

DISH 

DMAIN 


FBIT 

FCHB 

FCHEM 

FIRST 

FOND 

FPm 

FPNMt 

IDNS 

IDNT 

IDOL 

INUS 

lAST 

U 

MAXN 

NARDA 

NCHAR 

NCHB 


NCHaf 

NDICT 

NEXT 

NOCN 

NOVER 

NSTAT 

NVAL 

NVALU 

NXTCR 

OLAY 

OVEN 

OVER 

OVID 

OVLI 

PACK 

PACKM 

PCHN 


PDAT 

PDAIM 

PRBP 

PTXP 

SCOPE 

SIND 

SINTN 

SIZE 

SIZEH 

SPEC 

STAT 

STC 

SUM 

SWEP 

SNCN 

TBBP 

TCHN 


TEXT 

TERM 

TFRMt 

TIPE 

TIPV 

TYPVM 

T1 

T2 

T3 

T4 

T5 

Til 

T12 

TI3 

T14 

TI5 

VLUB 
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e .  Frocedvires  csilled 


BINRY 

IMP 

CAN 

PDICT 

ERROR 

POOL 

GET2 

SCON 

GET3 

SRCH 

HASH 

f.  Entered  from 

ENTER 

g.  IDE/IL  begins  processing  by  testing  the  Identifier  In  IDNT  with  the  switch 
DECOR*  If  the  Identifier  Is  CLOSE,  SWITCH,  or  PROC,  control  Is  returned 
to  the  main  program  with  CIAS  and  CHNL  set  to  Indicate  the  JOVIAL  primitive 
encountered.  Switch  and  procedvire  declarations  are  partially  processed 

by  IDEAL.  If  the  identifier  is  one  of  the  following,  the  declaration  is 
completely  processed: 

ITEM  (both  subscripted  and  non-subscripted,  including  preset 
parameter  constants) 

TABLE 

MODE 

FILE 

OVERLAY 

STRING 

ARRAY  (including  preset  parameter  constants  for  ARRAYS  of  three  or  less 
dimensions) 

Parameter  items  preset  to,  and  defining  a  non-subscripted  Item,  are  also 
processed.  Variable  definitions  are  entered  in  the  dictionary  and  the 
identifier  and  preset  parameters  are  entered  in  IDNS. 

In  processing,  HASH  and  SRCH  are  called  to  see  if  an  entry  having  the  same 
name  has  previously  been  entered  in  the  dictionary.  If  so,  the  present 
item  is  tested  to  see  if  it  agrees  in  usage  with  that  already  in  the 
dictionary.  Primary  legality  checks  are  accocia>lished  with  table  LEGAL.  If 
two  entries  have  the  same  name  but  different  usage,  a  new  entry  is  made  in 
DICT.  When  IDEAL  encounteres  a  variable  that  is  used  without  having  been 
defined  previous  to  its  use,  and  if  there  is  a  cooqpool,  IDEAL  calls  pro¬ 
cedure  POOL  to  extract  its  definition  from  the  compool  and  enter  it  in 
DICT.  If  there  is  no  compool,  or  if  the  variable  is  not  defined  therein, 
it  is  entered  into  the  dictionary  according  to  the  prevailing  MODE 
declaration. 
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IDEAL  also  cedis  IMP  to  process  sinqple  and  subscripted  items  and  strings; 
CAN  to  analyze  constants;  GET2  to  get  the  next  part  of  speech  from  LOOK; 
GET3  to  look  for  the  next  $;  BINRY  to  convert  an  STC  Integer  to  binary; 
S(X}N  to  process  status  variables. 
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IMP 


a.  IMP  processes  that  portion  of  declarations  called  the  item  description 
including  the  preset  parameter  constant  if  it  is  a  single  constant  in  a 
non-subscripted  variable  declaration.  Processed  ITEM  descriptions  are 
stored  in  channel  3  of  DICTM  and  associated  parameters,  if  present,  are 
stored  in  channel  4  of  DICIM. 

b.  No  input  parameters. 

No  output  parameters. 

c.  Local  variables 

STC 

d.  E:q>ress  VEa*lables 


BRQTM 

IDNS 

NVAL 

SIZEM 

TYPVM 

CKLIM 

IDNT 

PACKM 

SPEC 

T1 

CHL2M 

LI 

PDAT 

TBBP 

T2 

CLASM 

NCHAR 

PDATM 

TCHN 

T3 

DIMNH 

NCHBM 

BNGIM 

TEXT 

T5 

FCHEM 

NDICT 

RORTM 

TIPE 

T12 

FPNMM 

NEXT 

SINDM 

TYPV 

TI3 

e .  Procedures  called 

BINRY 

CAN 

DTOB 

ERROR 

GET2 

GET3 

SCON 

f.  Entered  from 

IDEAL 

g.  The  procedvire  IMP  processes  that  portion  of  a  declaration  which  is  called 
"item  description, "  plus  any  other  information  following  the  item 
description  and  preceding  the  terminating  "$"  of  a  given  variable  decla¬ 
ration.  It  processes,  therefore; 

1.  Non- subscripted  ITEM  declarations  following  the  identifying 
name  to  the  terminating  separator. 
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2.  ARRAY  declarations  following  the  last  dimension  to  the  terminating 
separator. 

3*  STRING  and  subscripted  ITEM  declarations  following  the  Identifying 
name  to  the  terminating  separator. 

4.  MODE  declarations  following  the  primatlve  "MODE"  to  the  terminat¬ 
ing  separator. 

Variables  with  type-code  of  "A"  (fixed-point  arlthemtlc)  are  given  tjpe- 
code  of  "A"  If  bits  rl^t  appears  In  the  ITQl  descrlptlcn  (zero  bits  right 
Included^  If  specified).  Otherwise,  type-code  of  "I"  Is  given.  If  type- 
code  of  "I"  Is  declared  (not  In  language)  this  Is  also  processed  as  an 
Integer.  Type-code  "D"  Is  slmllarlly  processed  Into  "D"  (dual  fixed- 
point)  and  "K"  (dual  Integer).  !^pe-code  of  "S"  (status)  has  SIZE 
(nuoher  of  bits)  computed  In  absence  of  a  declared  number  of  bits.  Non- 
subscrlpted  ITEM  declarations  of  the  form 

ITEM  ITEM'NAEG  constant  $ 

are  not  processed  by  IMP.  Information  gleaned  by  IMP  is  stored  in 
channel  k  (index  3)  of  DICTM.  Fre-assigned  parameter  constants  associated 
with  a  non-subscrlpted  variable  are  processed  into  channel  5  of  DICTM. 
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LOOK 

a.  Finds  the  next  part  of  speech  in  the  JOVIAL  source  program.  An  output 
pareuneter  Is  set  to  the  number  designating  type,  and  identifiers  and 
constants  are  placed  in  IDNT. 

b .  Input  parameter 

XX  =  reason  for  entry  (always  set  to  2,  0  and  1  are  not  used) 
Output  parameter 

YY  =  type  (see  values  at  end  of  procedure  description) 

ZZ  =  number  of  characters  in  identifier  or  constant 

c.  Local  variables 


CB 

INC 

SB 

CDIT 

LB 

SC 

CHCT 

LCHAR 

SV 

DB 

OSB 

TCH 

PCHAR 

PB 

TY 

HB 

PEB 

VP 

HL 

PP 

Express  variables 

CARD 

IDNT 

NC 

NX 

CATC 

11 

ND 

PRBP 

CATF 

JJ 

NDEFS 

PRSC 

CDI 

J1 

NDICT 

SAV 

CHAR 

KD 

NEXT 

STCTR 

DERHP 

KDA 

NI 

TCDl 

DFB 

KDB 

NO 

TEXT 

DI 

KDC 

NOVER 

TXXT 

FB 

LI 

NU 

e .  Procedures  called 

DTOB 

ERROR 

TSTIM 

f.  Entered  from 

Main  program 

PVRC 

GET2 

QET3 
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g.  The  procedure  looks  at  one  chcuracter  at  a  time,  from  Item  CABD,  until  a 
part  of  speech  has  been  terminated.  If  a  ccsmwnt  bracket  is  encountered 
( "  )>  the  entire  comment  is  bypassed,  the  ending  syaa}ol  being  either 
another  comstent  bracket  or  a  dollar  sign  ($).  If  the  identifier  OBFINE 
is  encotintered,  the  declaration  following  is  processed  by  LOCEC,  and  the 
information  stored  in  item  IQ)  and  the  appropriate  entries  made  in  the 
define  table  (contains  items  KIA,  KDB  and  KDC).  In  bo'Ui  the  above  eases, 
the  next  peurt  of  speech  is  obtained  by  LOOK  as  the  output  from  the  pro- 
cedtire . 

LOOK  recognizes  basically  three  kinds  of  characters:  (l)  special  charac¬ 
ters,  (2)  numbers,  and  (3)  letters. 

(1)  When  a  special  character  is  recognized  the  following  checks  are  made: 

a.  If  the  number  of  characters  already  processed  for  this  part  of 
speech  is  equal  to  zero,  the  character  is  compared  with  the  single 
characters  in  item  SC.  If  a  match  is  found,  appropriate  action 

is  taken.  If  the  character  can  be  the  first  of  a  2  character 
pair,  a  2  character  set  is  compared  against  those  in  item  SC. 

If  the  special  character  is  not  found  to  be  one  recognized  by 
JOVIAL,  and  it  is  not  the  ending  character  of  defined  information, 
an  error  message  is  printed  azxd  the  next  part  of  speech  is  gotten. 

b .  If  the  special  character  is  a  prime  ( ' )  with  no  prime  following 
it,  it  is  assumed  to  be  part  of  an  identifier  and  the  next 
character  is  looked  at. 

c.  If  a  constant  is  being  processed  (CB  set  to  l),  the  character  is 
checked  to  see  if  it  is  pcurt  of  the  constant.  If  so,  it  is  handled 
accordingly.  If  not,  the  constant  is  terminated  and  exit  is  isade 
from  the  procedure. 

d.  If  the  character  is  a  left  parenthesis  (()  and  it  is  the  second 
character  processed,  the  two  characters  are  checked  against  item 
SC  for  possible  special  meanings.  If  a  match  is  found,  switch 
GT  is  used  to  continue  processing.  If  no  match  is  found,  the 
part  of  speech  is  terminated. 

e.  If  none  of  the  above  steps  are  taken,  the  special  character  termi¬ 
nates  a  previous  part  of  speech  and  the  output  parameters  are  set. 

If  the  part  of  speech  Just  finished  is  an  identifier  the  follow¬ 
ing  additional  decisions  must  be  made: 


l8  September  I962 


93 


TM-555/oeo/OQB 


1.  If  the  identifier  is  the  label  in  a  DEFIIffi  declaration,  the 
rest  of  the  declaration  is  processed,  and  then  the  next  part 
of  speech  is  obtained  for  return  from  the  procediire. 

2.  If  the  number  of  defined  identifiers  is  greater  than  0,  the 
current  one  must  be  compared  against  the  existing  list,  and 
if  a  match  is  obtained,  the  definition  must  be  processed  as 
though  it  were  part  of  the  JOVIAL  source  program. 

3.  Ihe  identifier  m\ist  be  checked  to  see  if  it  is  either  "DEFINE" 
or  "DIBECT".  In  the  former  case,  the  declaration  is  processed. 

In  the  latter,  the  output  parameter  type  must  be  modified. 

f.  If  the  part  of  speech  Just  processed  is  a  dollar  sign  ($),  the 

following  decisions  must  be  made. 

1.  Checks  subscripted  item  DRCM  to  see  if  an  uneven  number  of  brackets 
was  encoimtered  in  the  statement  terminated  by  $.  If  so, 

error  23  is  reported. 

2.  If  a  procedure  is  being  processed,  the  statement  counter  for 
procedures  is  incremented  by  one.  If  not,  the  statement 
counter  for  main  program  is  incremented  by  one. 

3.  DICT,  OVER  and  IDNS  are  checked  to  see  if  they  have  overflowed 
during  the  previous  statement.  If  so,  an  error  message  is 
printed  and  the  processing  is  terminated.  If  not,  the  position 
in  IDNT  is  reversed,  and  return  is  made  from  LOOK. 

(2)  ^Then  a  number  is  recognized,  if  it  is  the  beginning  of  a  new  part  of 
speech,  the  constant  indicator  is  turned  on  (CB).  The  character  is  put 
into  IDIIT,  the  character  co\jmt  is  incremented  by  one  (CHCT)  and  the  next 
character  is  looked  at. 

(3)  1/hen  a  letter  is  recognized,  indicators  are  set,  the  character  is  put 
into  IDOT,  the  character  count  is  incremented  by  one  (CHCT)  and  the 
next  character  is  looked  at. 

In  general.  Identifiers  end  constants  are  placed  in  IDNT  to  be  available  to 
other  parts  of  the  generator.  Each  call  to  LOOK  causes  the  index  in  IDNT, 

TEXT,  to  be  changed  with  TXXT,  to  alternate  halves  of  IDNT.  Upon  return 
from  LOOK,  TEXT  indicates  the  half  of  IDI/T  to  be  used  next  time  through  the 
procedure . 

Everytime  the  index  associated  with  item  CARD  is  incremented  (Jl),  a  call 
to  TSTIM  is  made  to  insure  that  a  card  will  be  read  in  when  necessary. 


I 
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nie  output  from  LOOK  giving  type 


1  =  . 

13 

2  =  , 

14 

3  =  = 

15 

4=  $ 

16 

5  =  == 

17 

6  —  •  •  • 

18 

7  =  ( 

19 

8  =  ) 

20 

9  =  ($ 

21 

n 

0 

22 

11  =  (/ 

23 

12  =  /) 

24 

I 
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part  of  speech  Is  as  follows: 


=  + 

=  * 

=  / 


=  constcmt 
=  identifier 
=  subscript 
=  DIRECT 
=  A( 
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MUV 

a.  Places  one  character  In  Item 

b.  No  Input  parameters. 

No  output  peurameters . 

c.  Local  variables 

M 

COUNT 

d.  Express  variables 

CHAR 

FBC 

IDA 

IDE 

IDC 

IDD 

IDE 

IDF 

IDG 

IDH 

UXT 

e.  No  procedures  called. 

f.  Entered  from 

LOOK 

g.  1.  The  first  time  the  procedure  Is  entered  In  one  execution  of  procedure 

LOOK,  (FB  set  to  one),  the  entrance  value  to  switch  S¥  Is  Initialized, 
acid  the  half  of  IDNT  to  be  used  Is  determined  from  TEXT. 

2.  Each  time  the  procedure  Is  cedled,  one  character  from  Item  CHAR  Is 
stored  In  IDNT.  Consecutive  bytes  of  IDNT  axe  used  by  storing  In 
a  different  subscripted  Item  each  time  the  procedure  Is  called. 
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PDICT 

a.  Utader  central  control,  edit  and  store  on  tape  in  off-line  print  fomat 
the  identifier  storage  item,  IDN8,  and  the  dictionary,  DICT> 

b .  Input  parameter 

FIRST  -  an  index  value  Indicating  the  final  (high  order)  channel  of  DICT 
to  be  edited 

Output  parameter 

IA8T  -  an  index  value  indicating  the  final  (high  order)  chaxmel  of  DICT 
to  be  edited. 

c .  Local  variables 

AA  TITLE 

CLASS  TIP 
DEF  TER 

PAC 

d.  Express  variables 


CIAS 

PDAT 

SBGT 

DEER 

PACK 

FFNM 

TYPV 

SIND 

PDCTY 

FCHB 

OLAY 

1APE 

NCHB 

TFBM 

NEXT 

CHLl 

SIZE 

IDNS 

CHL2 

FBIT 

DEBUS 

e .  Procedures  called 

BIOD 

f .  Entered  from 

IDEAI 

g.  1.  If  PDCTY  is  not  true,  exit. 

2.  Edit  IDNS  to  print  100  characters  per  line  with  blanks  in  position  1 
and  positions  101  to  120,  using  item  TftPE  as  a  120  character  buffer. 
Convert  tape  from  STC  to  hardware  Hollerith  by  calls  to  the  procedure 
CQHV. 
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3.  Output  each  line  to  be  printed  from  the  item  TAPE  through  the  file 
lEBUB. 

Output  enough  lines  to  coogpletely  include  IIEIS> 

Output  a  DICT  heading  preset  in  the  item  TITLE  through  the  file  DEBUG* 

6.  Edit  1  line  of  DICT  for  each  channel  to  be  printed. 

7.  Step  counter  AA  starting  with  FIRST  and  repeat  process  for  each  channel 
in  DICT  until  AA  exceeds  LkST- 

8.  Edit  each  line  using  the  buffer  item  TAPE.  Convert  TAPE  to  hardware 
Hollerith  with  calls  to  the  procedure  CQNV . 

9*  Output  each  DICT  channel  as  edited  in  '!APE  throu^^  file  DEBUG. 
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POOL 

a.  POOL  searches  the  ccxBgpool  for  definitions  of  identifiers  used  by  the 
program  that  are  not  previously  defined.  POOL  is  presented  with  an 
identifier  and  an  indication  of  the  type  of  variable  whose  definition 
may  be  extracted  from  the  coopool.  If  a  definition  is  found  it  is 
entered  in  the  dictionary  (OICT)  and  associated  tables.  In  addition  to 
setting  items  in  the  reserved  dictionary  entry,  FOOL  will,  under  certain 
circumstances,  add  entirely  new  entries  to  the  dictionary. 

b.  No  input  parameters. 

No  output  parameters. 

c.  Local  variables  are  coqpool  dependent. 

d.  Express  variables 


BRGT 

DINN 

INUS 

NVALU 

STC 

CHU 

PBIT 

NARDA 

PACK 

TEXT 

CHL2 

FGHB 

NCHAR 

PARAM 

TTBM 

CLAS 

FGRD 

NCHB 

PCHN 

Tm 

DEPN 

IPNM 

NDICT 

FDAT 

T3 

IBNT 

UBS 

NEXT 

PRBR 

T4 

DICT 

IDNT 

NSTAT 

SIZE 

TI3 

e .  Procedures  csdled 

BITER 

ERROR 

HASH 

SRCH 

f.  Entered  from 

IDEAL 

g.  The  procedure  POOL  is  compool  dependent.  There  is  a  different  FOOL  for 
each  compool,  and  thus,  for  each  compiler.  However,  all  POOL  procedures 
will  qperate  in  the  same  manner. 

If  the  express  Boolean  item  CMP0L  is  set  to  true,  POOL  will  be  entered. 

The  identifier  in  UBT  accessed  by  TEST  and  NCHAR,  and  identified  as  to 
type  by  PABAM,  will  be  looked  up  in  the  compool  and  its  definition  entered 
in  the  reserved  dictionary  channel  specified  by  the  value  of  T13>  DEiN 
of  chaxmel  T13>  is  set  to  2  to  indicate  a  cooqpool-deflned  identifier.  An 
ITEM,  TABLE,  SIRINQ,  ARRAY,  LIKE  TABLE,  FROCedure,  or  a  program  may  be 
defined  in  this  manner.  Parameter  items  may  not  be  defined  in  the  coopool. 
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RBCRD 

a.  RECRD  prints  the  CAT  table. 

b.  No  input  parameters. 

Mo  output  parameters. 

c.  No  loccd.  variables. 

d.  No  express  variables 

PCATl 

OUT 

CA03 

CATC 

II 

CATF 

J1 

e .  Procedures  called 

BTOD 

f.  Entered  from 

Main  program 

g.  RECRD  prints  CATB,  CATC,  CATF,  and  II.  PCATl,  a  Boolean  variable, 
determines  whether  or  not  RECRD  will  be  executed. 
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SCON 

a.  On  entry  control,  SCON  either  stores  stati  for  status  declared  variables 
or  searches  for  a  given  status  in  the  ST4T  table  VALU  string  reference 
scheioe.  Control  variables  are  bookkept,  discovered  stati  are  converted  to 
an  STC  integer  in  IDIfT,  and  a  found  or  not  found  Boolean  indicator  is  set 
for  imoediate  testing. 

b .  Input  parameters 

INDEX  =  a  STAT  table  index  if  a  search  is  requested. 

STORE  =  a  Boolean  indicator  with  the  meanings: 

true  =  1  =  store  stati, 

false  =  0  =  search  for  status  in  channel  referenced  by 
INDEX. 


Output  parameters 

SCON  =  a  Boolean  set  for  immediate  testing  with  the  meanings: 

1  =  true  =  a  status  was  found  and  converted, 

0  3  false  =  search  in  given  channel  was  unsuccessful. 

c.  No  local  variables 

d.  Express  veuriables 


BROOM 

TIPE 

IDNT 

T2 

NCHAR 

T5 

NSTAT 

T12 

NVAL 

TI3 

NVALU 

VALU 

TEST 

VPOS 

e .  Procedures  celled 

BTOD 

CAN 

ERROR 

aET2 

f .  Entered  from 

IDEAL 

IMP 
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g.  If  STORE  -  l(true),  store  status;  otherwise  search. 

Store  function: 

1.  Set: 

£RG0M($3$)  to  NSTAT  (next  available  channel  In  STAT  table), 

VP0S($NSTAT$)  to  NVAliU  (next  available  byte  In  VALU) 

NVAL($NSTAT$)  to  the  nuisber  of  stati  stored  In  VALU 
NSTAT  to  N8TAT  +  1 

VALU  to  all  stati  after  being  stripped  by  the  procedure  CAN  and  the 
octsl  separator  77  being  inserted  following  each  status. 

NVALU  to  the  next  available  byte  In  VALU  after  the  storage. 

2.  Use  a  call  to  the  procedure  CST2  to  place  the  next  status  in  IDNT 
Vint  11  all  stati  are  processed. 

3.  Use  a  call  to  the  procedure  CAN  to  check  each  constant  in  IDNT  supplied 
by  GET2,  and  process  the  constant. 

4.  Terminate  when  the  part  of  speech  In  IDNT  Is  not  a  status  constant. 

Seeurch  function: 

1.  IDNT  contains  the  status  of  search. 

2.  INDEX  contains  the  STAT  table  Index  referencing  the  stati  to  be  searched. 

3.  VF0S( $INDEX$)  contains  the  byte  number  of  the  first  character  of  the 
first  status  In  VALU. 

4.  NVAL( $INDEX$)  contains  the  number  of  stati  to  search  In  VALU. 

5.  Count  the  first  status  of  search  as  zero,  the  second  as  one,  etc. 

6.  Analyze  each  character  In  VALU  until  a  separator  of  octal  77  is  reached. 

7.  Compare  the  status  separated  out  with  the  status  in  IDNT.  If  not 
identical,  bump  the  search  counter,  and  if  all  stati  In  this  channel 
are  not  compared,  continue  the  search.  If  search  Is  finished  and  vui- 
successful,  call  procedure  ERROR  with  Input  number  4l.  Set  SCON  to 
false  and  exit. 
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8.  If  search  is  successful^  replace  status  In  nUlT  with  an  STC  integer 
determined  by  search  counter.  Set  SCON  to  true,  NCHAR  to  the  nuoiber 
of  digits  in  the  integer,  T5  to  NCIfiW,  and  exit. 
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aRCH 

a.  SRCH  uses  an  access  table  called  DIffl  with  an  index  value  supplied  by  the 
procedure  R/LSH  to  determine  the  presence  of  a  label,  l.e.,  identifier,  or 
ccxistant  defined  in  the  dictionary,  DICT*  The  label  being  searched  is  in 
IDRT.  The  results  of  the  search  are  communicated  with  a  Boolean  indicator, 
and  if  found  an  index  value  to  the  defining  DICT  entry  is  supplied.  House¬ 
keeping  for  reference  and  entry  into  IDNT  is  supplied.  DISH  items  are 
maintained. 

b.  No  input  parameters. 

No  output  parameters. 

c.  No  local  variables. 

d.  Express  variables 


INUS 

NOCN 

DENT 

NCHAR 

SOCN 

TEXT 

NCHB 

IDNS 

FCHB 

IDNT 

FOND 

T3 

T4 

NEXT 

e.  No  procedures  called. 

f.  Entered  from 

IDEAL 

POOL 

g.  An  entry  index  to  table  DISH  is  communicated  from  the  procedure  HASH  by 
the  express  item  t4.  If  the  DISH  channel  so  referenced  is  not  occupied, 
then  the  label  teaqporarlly  stored  in  IDNT  is  not  defined  by  DICT.  In 
this  case,  the  Boolean  FOND  is  set  to  false,  i.e.,  zero,  and  the  procedure 
is  exited  leaving  the  following  settings: 

TV  =  DISH  channel  index  (unchanged  by  SRCH), 

T3  =  the  next  available  byte  of  IDNS  from  the  sli^ple  item  NEXT 
(unchanged  by  SRCH). 

If  the  referenced  DISH  channel  is  in  use,  i.e.,  occupied,  then  two  possi¬ 
bilities  of  a  condition  called  "overflow"  can  exist.  The  index  value 
supplied  by  HASH  is  equal  to  different  labels  "hashing"  to  the  value,  or 


I 


I 
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identical  labels  are  defined  by  DICT  more  than  once.  Different  domains  of 
definition  (e.g.,  the  same  label  (identifier)  is  local  to  several  procedures) 
or  different  scopes  of  definition  (e.g.,  a  statement  label  has  th*  saale  name 
as  a  table)  generate  this  latter  type  of  cverflov. 

SRCH  compaz«s  the  label  in  IDIVT  against  the  label  defined  by  DICT  and  stored 
in  IDHS.  The  DISH  item  DENT  provides  an  index  to  DICT,  and  the  DICT  items 
FCHB  and  NCHB  provide  a  reference  to  IDNS.  If  the  labels  are  not  identical, 
the  item  SOCN  of  DISH  is  set  to  the  next  available  overflow  channel  in  the 
latter  half  of  DISH.  t4  is  then  reset  from  SOCN  and  the  procedure  exits  as 
described  above.  If  the  labels  are  identical,  POND  is  set  to  true,  i.e., 
one,  and  if  T3  equals  NEXT,  T3  is  reset  to  FCHB  from  DICT.  fhe  procedvire 
then  exits  as  above. 

If  SRCH  is  entered  with  FOND  equal  to  true,  the  procedure  immediately 
resets  for  searching  in  the  overflow  portion  of  DISH  prior  to  testing. 
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TgnM 

a.  TSTIM  reads  the  Hollerith  Input  tape  (HIN)  containing  the  JOVIAL  source 
program. 

b.  No  input  parameters. 

No  output  parameters. 

c .  Local  variables 

AA 

d.  Egress  variables 


CARD 

HIN 

TCDl 

CATC 

11 

TCD2 

CATF 

Jl 

TP 

CDCLl 

U 

TPl 

DEBUG 

LBR 

TSTR 

nRWHP 

QA 

LBFN 

EFIND 

TCD 

LBIN 

e .  Procedures  called 

ERROR 

f.  Entered  from 

Main  program 

LOOK 

g.  1.  If  a  defined  identifier  is  being  processed  (DEFBP  on),  the  procedure 

returns . 

2.  If  an  end  of  file  has  already  been  detected  in  the  input  (EFIND  on), 
the  cvirrent  position  in  the  card  image  is  checked.  If  the  entire  card 
before  the  EOF  has  been  processed,  a  TERM  operator  is  placed  in  OAT, 
and  error  message  is  printed  and  processing  is  wound  up  in  the  normal 
manner.  If  the  last  card  has  not  been  entirely  processed,  return  is 
made. 

3.  If  the  position  in  the  card  image  (jl)  is  less  than  six  bytes  from  the 
end  of  the  card,  another  card  must  be  read  in. 

4.  If  an  EOF  has  previously  been  detected  on  the  JOVIAL  library  tape  (LfiFN 
on),  an  error  message  is  printed,  and  processing  of  the  library  is 
terminated,  a  TERM  operator  Is  placed  in  CAT  and  the  program  is  completed. 
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5 .  If  no  EOF  has  been  detected,  the  last  six  characters  are  moved  from 
the  last  six  CARD  entries,  to  the  first  six,  and  the  position  in  the 
card  image  (Jl)  is  adjusted  accordingly. 

6.  If  the  JOVIAL  library  tape  is  being  read  (IBIR  on),  a  card  is  read 
frcm  file  LBR. 

7*  If  not,  a  card  is  read  from  file  HDI,  and  this  card  is  written  on  the 
output  listing  file  (DEBUG).  The  card  is  converted  to  SIC,  and  the 
characters  moved  from  their  position  in  the  input  buffer  (TSIR)  to 
consecutive  entries  in  item  CARD.  The  procedure  then  returns. 
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ERROR  HESSACS  DESCRIFTION 
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1  -  START  operator  missing  from  JOVIAL  source  progrsm. 

Detected  by:  main  program,  region  JQOGIN 

2  -  Syntactical  error. 

Detected  by:  main  program,  regions  X2,  XlU,  X3>  X4,  X9>  X6 

*  3  -  Illegal  character. 

Detected  by:  procedure  LOOK 

*  k  -  Illegal  COMI  stateownt. 

Detected  by:  main  program,  region  10 

^  -  Procedure  declaration  found  within  procedure  declaration. 
Detected  by:  main  program,  region  FRIP 

6  -  Syntactical  error. 

Detected  by:  main  program,  region  10 

7  -  Illegal  1$. 

Detected  by:  procedure  LOCaC 

8  -  OPEN  or  SHOT  not  followed  by  INPUT  or  OOlPUT  in  statement. 

Detected  by:  main  program,  regicm  10 

*  9  **  Illegal  DIRECT  operator. 

Detected  by:  main  program,  region  10 

*10  -  Illegal  ' ' . 

Detected  by:  main  program,  region  PRIP 

11  -  DEFINE  declaration  not  terminated  by  $. 

Detected  by:  main  program,  region  X3 

12  -  Binary  point  designator  in  A(  }  (accumulator  designator)  not  a 

constant  ( in  ASSIGN  statement) . 

Detected  by:  main  program,  region  PRAC 

13  -  Switch  name  missing  in  SWITCH  declaration. 

Detected  by:  main  program,  region  X26. 

14  •  "="  or  "("  missing  in  SWITCH  declaration. 

Detected  by:  main  progreun,  region  X26 

15  -  Item  name  missing  in  item  SWITCH  declaration. 

Detected  by:  main  program,  region  X26 

16  -  Procedure  name  missing  in  procedure  declaration. 

Detected  by:  main  program,  region  X27 
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17  -  Close  name  missing;  in  CLOSE  declazmtion. 

Detected  by:  main  program,  region  X28 

18  -  missing  after  close  name  in  CLOSE  declairation. 

Detected  by:  main  program,  region  X28 

*19  -  No  CAT  entry  available  from  IDEAL. 

Detected  by:  main  program,  region  X3 

20  -  TERM  operator  missing  or  $  after  TERM  operator  sdsalng. 

Detected  by:  procedure  LOOK 

21  -  C(»ment  terminated  by 

Detected  byj  procedure  LOOK 

*22  -  Control  transferred  to  zero  point  in  a  switch 
Detected  by;  procedure  LOOK 

23  <•  Uneven  number  of  brackets  encountered  in  current  statAatat  (ineludee 

”$),  "(/",  /Y  ). 

24  -  Too  many  entries  in  the  dictionary  (DICT).  Processing  of  the  source 

program  has  been  terminated. 

Detected  by:  main  program,  region  XIO 

25  -  Too  many  Overlay  declarations  (too  many  entries  in  table  OVER). 

Processing  of  the  soiurce  program  has  been  terminated. 

Detected  by:  main  program,  region  XIO 

26  >  Too  many  characters  of  Information  in  variable  names,  constants,  etc. 

(variable  IDNS  contains  too  many  characters).  Processing  of  the 
sources  program  has  been  terminated. 

Detected  by;  main  program,  region  XIO 

27  -  Too  many  define  declarations.  Processing  of  the  source  program 

been  terminated. 

Detected  by;  main  program,  region  X3 

28  -  Too  many  characters  of  information  in  define  declarations  (variable 

KD  has  overflowed)  or  too  many  characters  in  one  definition  and  its 
associated  nested  defined  labels.  Processing  of  the  source  program 
has  been  terminated. 

Detected  by:  procedure  LOOK 

29  -  HOLL  or  STC  constant  too  large. 

Detected  by:  procedure  LOOK 

30  -  Item,  mode,  or  string  declaration  type  code  not  recognised. 

Detected  by:  procedure  IMP 

31  -  Item,  mode,  or  string  declaration  nunber  of  bits  or  characters  does 

not  suceed  type  code  for  type  A,  D,  B,  or  T. 

Detectui  by:  procedure  IMP 
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32  -  Signed  or  unilgtied  indication  in  item,  mode  or  string  declaration  is 

not  recognised  for  type  A  or  D. 

Detected  by:  procedure  IMP 

33  -  Signed  or  unsigned  indication  in  item,  mode  or  string  declaration  is 

not  recognised  for  type  A  or  D. 

Detected  by:  procedure  IMP 

3^  -  Item  declaration  format  is  confused.  Cheek  the  format  preceding  the 
character. 

Detected  by:  procedure  IMP 

39  ~  Sinqide  item  declaration  does  not  have  type  code.  Mode  definition 
sxibBtituted. 

Detected  by:  procedure  IDEAL 

36  -  (Jlot  used) 

37  -  One  of  two  constants  used  to  specify  range  values  in  item  declaration 

is  missing. 

Detected  by:  procedure  IMP 

38  -  Subscripted  item  declaration  in  table  vith  specified  packing  has 

confused  format  preceding  the  character. 

Detected  by:  procedure  IMP 

39  -  Simple  item  or  mode  declaration  has  data  constant  not  consistent 

with  variable  type. 

Detected  by;  procedure  IMP 

40  >  Status  item,  mode  or  string  declaration  has  no  statl. 

Detected  by:  procedui*e  IMP 

41  -  Status  constant  assigned  to  variable  was  not  found  among  variables' 

statl . 

Detected  by:  procedure  SCON,  IDEAL 

42  -  Referenced  transfer  point  (statement,  label,  close,  switch  or 

compool  address)  is  missing  or  undeclared  procedure  exists. 

Detected  by:  procedure  IDEAL 

43  -  Subscript  with  non- sub scripted  variable  or  subscripted  variable  with¬ 

out  subscript  is  referenced. 

Detected  by;  procedure  IDEAL 

44  -  Overlay  declaration  has  format  in  error  or  legal  identifier  not  found 

in  dictionary.  Overlay  accepted  up  to  point  of  erzvr. 

Detected  by:  procedure  IDEAL 


10  July  1962 


117 


ai-555/OfiO/OO 


4^  -  File  declaration  has  no  stall. 

Detected  by:  procedure  IDEAL 

46  -  File  declaration  has  confused  format. 

Detected  by:  procedtire  ID!BAL 

47  -  Table  declaration  has  confused  format.  Declaration  passed  over. 

Detected  by:  procedtire  IDEAL 

48  -  Like  table  not  found  for  like  table  declaration. 

Detected  by:  procedure  IDEAL 

49  >  Illegal  s\jibscrlpted  variable  Identifier  was  generated  as  a  result  of 

a  like  table  declaration.  This  variable  0BBd.tted  from  table. 
Detected  by:  procedure  IDEAL 

30  -  Table  declaration  confused  between  subscripted  Item  declaration. 

Detected  by:  procedure  IDEAL 

^1  *  String  or  Item  declaration  crasponent  of  specified  table  declaration 
has  confused  format. 

Detected  by:  procedure  IDEAL 

32  -  Constant  type  of  pre-set  table  data  Is  not  consistent  with  other 

constants  In  same  set,  or  not  compatible  with  assigned  variable. 
Detected  by:  procedxure  IDEAL 

^3  -  Identifier  does  not  succeed  the  formal  word  "ITEM"  in  simple  item 
declaration . 

Detected  by:  procedure  IDEAL 

^4  -  Item  declaration  Identifier  already  used  for  item,  table,  string  or 
file  in  same  area  of  scope. 

Detected  by:  procedure  IDEAL 

33  -  Mode  declaration  not  accepted,  format  illegal. 

Detected  by:  procedure  IDEAL 

36  -  Array  format  error.  Caution  -  array  may  have  been  abandoned. 
Detected  by  procedure  IDEAL 

31  -  Array  dimensions  are  not  pure  vinsigned  integers. 

Detected  by:  procedure  IDEAl 

58  -  Pre-set  table  data  exceeds  table  capacity. 

Detected  by:  procedure  IDEAL 
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39  ~  Cojistant  hai  fomt  error.  Caution  >  reduced  form  may  be  Junk. 
Detected  by:  proeedxire  CAN 

60  -  Pre-set  parameter  constants  assigned  to  an  array  with  more  than  3 

dimensions  is  not  currently  Isqplemented. 

Detected  by:  procedure  ID!BAL 

61  -  Pre-set  parameter  constants  assigned  to  an  array  is  excessive.  The 

number  of  constants  per  rov  is  greater  than  the  mma>er  of  colvams. 
Detected  by:  procedure  IDEAL 

62  -  Duplicate  label  -  statement,  svltch  or  close  within  same  area  of 

scope. 

Detected  by:  iirocedure  IDEAL 

63  -  Caution  -  mode  definition  used  to  define  this  non-subscripted  variable. 

Detected  by:  procedure  IDEAL 

64  -  Subscripted  variable  not  i^eviously  declared  -  mode  definition  used 

to  enable  continued  processing. 

Detected  by:  procedure  IDEAL 

63  -  See  61.  The  number  of  constants  per  column  is  greater  than  the 
number  of  rows. 

Detected  by:  procedure  IDEAL 

66  -  See  61.  The  nvunber  of  constants  per  plane  is  greater  than  the  number 
of  planes. 

Detected  by:  procedure  IDEAL 

96  -  More  then  10  nested  defined  labels.  (Label  probably  has  been  defined 

recursively.)  Processing  of  the  sources  program  has  been  terminated. 
Detected  by:  procedure  LOOK 

97  -  Illegal  single  prime  ( ' ) • 

Detected  by:  procedure  LOOK 

98  -  Error  in  format  of  library  file. 

Detected  by:  main  program 

99  -  Trying  to  read  past  EOF  on  LIBR. 

Detected  by:  procedure  TSTIM 
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BESCRIFTION  OF  PHASE  II  OF  THE  JOVIAL  GENERATOR 


A.  GENERAL  DESCRIPTION 


The  second  phase  of  the  JOVIAL  generator >  hereafter  referred  to  as  Gen2,  processes 
JOVIAL  statements  as  they  appear  in  their  coded  form  as  entries  in  the  CAT  table. 
It  translates  the  statements  into  a  machine- independent >  parenthesis- free,  pre¬ 
fixed  operator  notation  called  the  intermediate  Icuiguaige  (IL).  (For  a  detailed 
description  of  the  intermediate  language  see  FN-5066).  The  form  of  the  interme¬ 
diate  language,  the  primary  output  of  Gen2,  is  a  table  called  the  IL  table,  whose 
entries  represent  the  original  JOVIAL  statements  in  an  'ordered'  sequence  of 
'operator-operand-operand'  functions  (the  ordering  determined  according  to  weif^ts 
or  priorities  assigned  the  various  JOVIAL  operators  and  the  nesting  or  parenthe¬ 
sizing  of  the  statement). 

All  of  the  information  required  by  the  translators  for  the  various  types  of 
JOVIAL  statements  can  be  supplied  in  entries  of  the  IL  table  except  for  the 
FOR  statement.  Therefore,  certain  ancillary  information  associated  with  the 
FOR  statements  is  supplied  to  the  translators  via  the  SRT  table.  An  entry  is 
made  in  the  SRT  table  for  each  FOR  statement  supplying  information  including 
the  range  of  the  FOR  statement  in  the  IL  table,  the  number  of  IL  table  entries 
required  by  its  increment  and  test  portions  and  the  nesting  level  of  the  FOR 
statement.  The  SRT  table,  then,  represents  the  second  output  of  Glen2. 

Two  additional  outputs  supplied  by  the  Gen2  include  the  total  amount  of  tempo¬ 
rary  storage  required  by  the  program  (N'TREG)  and  the  nxmiber  of  generator- 
supplied  labels  added  to  the  program  (N'GLAB).  (The  generator  supplies  labels 
which  are  used  as  transfer  j»ints  for  relational  statements,  exit  labels  for 
procedures,  labels  for  the  top  of  FOR  loops,  etc.). 

Gen2  processes  first  the  main-part  (MP)  of  a  program  and  then  its  procedures. 

(This  is  the  order  in  which  the  CAT  table  is  arranged  by  Genl).  As  the  begin¬ 
ning  of  each  procedure  is  encountered,  it  outputs  the  IL  for  the  preceding 
procedure  or  MP.  When  the  CAT  table  entries  are  e^diausted  or  when  the  TERM 
bracketer  is  encountered,  the  last  block  of  IL  is  output.  At  this  time  the 
SRT  table  is  edso  output  and  formatted  representations  of  the  IL,  SRT,  suid 
DRQ  tables  may  be  output  (if  requested).  Gen2  has  completed  its  function  at 
this  time. 
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The  underlying  flow  of  the  processing  carried  on  by  CSen2  consists  of  the 
foUoving: 

(1)  Input  -  as  CAT  table  entries  are  processed,  nev  entries  are  Input 
xmtll  an  entire  program  has  been  processed. 

(2)  Statement  identification  -  the  first  entry  of  each  statement  Is 
examined  to  determine  the  type  of  statement  to  be  processed. 

(3)  Statement  processing  -  statmsents  are  processed  according  to  their 
type  (if  an  error  is  detected  In  a  statement,  the  end  of  that  state¬ 
ment  Is  located  so  that  the  cycle  alveiys  begins  at  the  beginning  of 
a  nev  statement). 

(4)  Delayed- processing  -  certain  statements  require  two  phases  In  their 
processing,  one  performed  inmedlately,  the  second  performed  at  a 
later  time.  The  delayed-processing  represents  the  second  phase  of 
processing.  Therefore,  following  the  processing  of  each  statasent 
It  Is  necessary  to  perform  any  delayed-processing  necesseury. 

Perhaps  point  (4)  above  should  be  discussed  more  fully.  Certain  statements 
require  two  phases  In  their  processing.  For  example  an  IP  statment.  Py 
definition,  the  statement  succeeding  an  IF  statement  Is  to  be  executed  only 
If  the  conditions  specified  In  the  IF  statement  are  true.  Therefore,  it  is 
necesscury  to  label  the  end  of  the  succeeding  statement  and  to  direct  the  flow 
of  a  program  to  this  label.  If  the  conditions  specified  In  the  IF  statement 
are  false.  This  label  Is  called  the  'false  transfer  point'  label  after  the 
statement  succeeding  an  IF  statement  represents  the  second  phase,  the  delayed- 
processing,  required  by  an  IF  statement.  The  order  of  operations  becomes: 

(1)  translate  the  IF  statement  into  IL  remenibering  Its  'false  transfer 
point ' j 

(2)  translate  the  statement  succeeding  the  IF  statement  Into  IL; 

(3)  enter  the  'false  transfer  point'  label  into  the  IL. 

In  addition  to  the  IF  statement,  the  following  statement  types  require  2  idiase 
processing:  IFEITH,  ORIF,  FOR  and  procedure  and  close  declarations.  The  ORIF 
statement  requires  for  delayed-processing  that  the  Implied  GOTO  the  end  of  the 
IFErm  statement  and  the  false  transfer  point  be  entered  Into  the  IL.  The 
IFEITH  requires  the  same  as  the  ORIF  and  also  the  final  end  label  of  the  IFEITH 
to  be  entered.  The  FOR  statement  requires  the  bottom  of  a  loop  to  be  effected. 
The  procedure  and  close  declarations  require  that  the  end  of  the  procedure  or 
close  be  entered.  To  facilitate  the  delayed-processing,  the  DRQ  table  is  used 
In  a  push-down  manner  to  remeiDiber  the  type  of  delayed-processing  required, 
fallowing  the  processing  of  each  statement,  the  last  entry  in  the  DRQ  table  Is 
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examined  to  see  if  it  is  time  to  do  the  delayed-processing  required  by  a  pre¬ 
vious  statement..  The  delayed-processing  specified  in  a  QRQ  entry  is  performed 
after  one  simple  or  one  compound  statement  has  been  processed  since  the  time 
the  entry  was  made  (not  including  the  statement  which  necessitated  the  IKQ 
entry) . 

Gen2  can  be  tho\;i£^t  of  as  being  composed  of  two  main  elements.  Conaiderixig 
the  elements  in  reverse  order^  the  second  element  is  comprised  of  the  pro¬ 
cedure  ANCHR  and  its  associated  procedures.  'Hiis  element  ana0.yzes  and  con¬ 
verts  into  IL  arithmetic  and  logical  expressions.  For  a  general  description 
of  the  philosophy  and  operations  of  this  procedure,  see  SP-127.  The  first 
element  is  comprised  of  the  main  program  and  its  associated  procedures.  This 
is  the  control  element  of  the  program.  It  controls  the  input  of  CAT  table 
entries;  it  recognizes  the  type  of  the  statement  to  be  processed  and  directs 
the  processing  thereof;  and  it  recognizes  \dien  the  processing  is  done  and 
the  program  sho\JLld  exit.  Many  JOVIAL  statements  are  not  wholly  arithmetic 
or  logical  in  nature,  for  exai^le,  the  FOR  statement,  and  some  are  not  arith¬ 
metic  or  logical  at  all,  for  example,  the  RETURN  statement,  nie  first  element 
Isolates  these  arithmetic  and  logical  phrases  from  statements,  directing 
ANCHR  to  process  them,  while  processing  the  rest  of  these  and  all  of  the 
non-arithmetic  and  non- logical  statements  Itself.  The  wholly  arithmetic  or 
logical  statements  are  given  over  to  ANCHR  for  processing. 

The  first  element  performs  two  additional  functions.  The  first  is  concerned 
with  the  elimination  of  needless  'transfer'  statements  (GOTO,  RETURN,  TEST) 
and  the  optimizing  of  transfers  implied  by  these  statements  via  the  altera¬ 
tion  of  the  transfer  points  of  IL  GOTO  and  Relational  operators. 

An  example  of  the  elimination  of  needless  transfer  statements  is  as  follows: 

Consider;  (l)  the  2  statements 

IF  A  LS  B  $ 

GOTO  LBL  $ 

(2)  the  IL  for  the  statement 

A  GQ  B  -*  FTP 
GOTO  LBL 
Label  FTP 

Note  -  IL  relatlonals  imply  a  transfer  if  the  conditions 
are  true,  while  JOVIAL  relatlonals  imply  a  'fall  thru' 
to  the  next  statement  if  the  conditions  are  true. 
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Eliminate  the  transfer  statement  by  altering  the  IL. 
A  LS  B  •*LBL 

An  example  of  the  optimizing  of  transfers  is  as  follows: 
Consider:  (l)  the  statements 

IF  A  LS  B  $ 

C  -  D  $ 

GOTO  LBL  $ 

(2)  the  XL  for  the  statements 

A  GQ  B  -»JTP 
C  «  D 
Label  FTP 
GOTO  LBL 

Optimize  the  transfer  by  altering  the  IL: 

A  GQ  B  ^LBL 
C  -  D 
GOTO  LBL 


An  example  of  elimination  and  optimizing  is: 

Consider:  (l)  the  statements 

IF  A  LS  B  or 
C  EQ  D  $ 

GOTO  LBL  $ 

(2)  the  IL  for  the  statements 

A  LS  B  -*  TTP 
C  KQ  D  -*  FTP 
Label  TTP 
GOTO  LBL 
Label  FTP 

Optimize  and  elimination  by: 

A  LS  B  -»  LBL 
C  EQ  D  -  LBL 

The  second  additional  function  performed  by  the  first  element  of  Gen2  is  con¬ 
cerned  with  the  determination  of  the  minimum  amount  of  temporary  storage  nec¬ 
essary  for  each  procedure.  This  determination  involves  an  analysis  of  the 
temporary  storage  required  by  the  procedures  which  call  the  given  procedure. 
The  minimum  amount  represents  the  starting  level  at  which  the  temporary 
storage  must  commence  for  a  given  procedure.  The  actual  analysis  is  performed 


I 


10  July  1962 


123 

(page  124  blank) 


TK-555/020/00 


by  procedure  WORST  and  its  results  are  recorded  In  the  DICT  entry  associated 
with  each  procedure.  It  also  determines  the  total  amount  of  tenqporary  storage 
reqvilred  by  the  entire  program  during  the  analysis. 
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Itea^  Tfeble^  Procedure^  Parameter,  Switch,  and  File  Deseirlptlans 
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AA  Input  Parameter  Used  by:  WORST 

Specifies  the  type  of  processing  to  be  performed  by  WORST. 

0  -  Hull 

1  B  Procediire  call  processing 

2  B  Snd  of  MP  or  procedure  processing 

3  B  Snd  of  entire  program  processing 

4  B  Hbusekeep  processing 

AA  Input  Parameter  Used  by:  BIDD 

Specifies  the  number  to  be  converted  into  standard  transmission  code. 

ABSI  Item  Local  Used  by:  BDSV 

Indicates  whether  an  ABS  has  been  encountered  In  the  bead  or 
subscript  e:qpresslon. 

1  B  ABS  encountered 
0  B  ABS  not  encountered 

ACTS  Table  E^qpress  Used  by:  MP,  ARCHR, 

SSPRO,  BD8V 

Contains  Information  Indicating  the  activity  and  \isage  of  subscripts. 

ACTSS  Subscripted  item  from  table  ACTS  Express  Used  by:  MP,  ARCHER, 

SSPRO,  BDSV 

Indicates  the  activity  status  of  a  subscript. 

1  »  active 
0  B  Inactive 

AF^  Item  E^qpress  Used  by:  ANCSR,  XFRPT 

Contains  the  generated  label  number  of  the  'false  transfer  point* 
for  a  Boolean  assignment  statement.  t 

ARCHR  Procedure  Used  by:  MP,  EESIG, 

PACT 

Analyzes  relational  and  arithmetic  e:qpressions  to  determine  the 
order  In  which  the  expression  must  be  performed  and  generates  IL 
entries  representing  the  e3q>resslon  in  the  newly  determined  order. 

AOP  Switch  Activated  In:  ARCHR 

Sensitive  to  the  form  (CATP)  of  an  entry  with  a  class  of  arithmetic 
operator  (CATC  EQ  13 ). 
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ASRTP  Item  Local  Used  by:  ANGHR 

Ixidlcatea  vhen  a  nested  bead  e^qpression  has  Just  been  assigned  t< 
tenporary  storage  of  result  (the  first  or  left  operand  of  the  IL 
assignment  specifies  temp  0  (ILD  -  3,  lU*  >  O)). 

1  ■  nested  bead  e:qpression  Just  assigned  to  result 
0  ■  other  than  nested  bead  Just  processed 

ASPAC  Item  B:qpress  Used  by:  ANCHR,  SS 

Specifies  the  number  of  entries  'fl  in  the  CAT  table  between  the 
ABS  modifier  and  its  rlfi^t  parenthesis. 

ATTP  Item  Express  Used  by:  ANGHR,  XF 

Contains  the  generated  label  nunAier  of  the  'true  transfer  point* 
for  a  Boolean  assignment  statement. 

AUI  Item  Local  Used  by:  ANCHR 

Indicates  whether  a  unary  minus  or  em  ABS  modifier  is  being  proc 
1  -  ABS 

0  ■  unary  mintus 

AVFOS  Subscripted  item  from  table  SS  E^qpress  Used  by:  ANCHR,  SS 

Contains  the  CAT  table  entry  number  describing  the  ABS  modifier 
the  s\d)scrlpt  expression. 
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B1 


B2 


BASE 


BOAT 


BCATP 


BD 


BIBSE 


Item  Esqpress  Used  by;  MP 

Indicates  whether  a  directed  TEST  statement  Is  being  processed 
(TEST  Q  $). 

1  -  directed  TEST 
0  -  non-dlrected  TEST 

Item  Express  Used  by:  MP 

Indicates  If  a  TEST  statement  was  used  In  the  range  of  some  POR 
statement . 

1  >  used  In  the  range  of  some  FOR 
0  «  used  outside  the  range  of  a  FOR 

Item  Local  Used  by:  ANCHR 

A  'push- down*  type  item  used  to  co\mt  bracket ers  (incremented  by 
20  for  each  left  bracketer,  decremented  by  20  for  each  right 
bracket er) . 

File  Fbqpress  Used  by:  MP 

Contains  the  binary  CAT  table  as  output  by  GeiO.  representing  the 
main  body  of  a  program. 

File  E^qpress  Used  by:  MP 

Contains  the  binary  CAT  table  as  output  by  Genl  representing  the 
procedures  of  a  program. 

Item  Local  Used  by:  BDSV 

Indicates  whether  a  bead  or  subscript  expression  Is  being  processed 
by  BDSV. 

0  s  subscript  expression 

1  >  BYTE  ejqpression 

2  >  BIT  expression 

Siibscrlpted  Item  from  table  BEADS  Express  Used  by:  ANCHR 

Contains  the  value  of  the  base  (BASE)  at  the  beginning  of  each 
beaded  expression. 

Item  Local  Used  by: 

Specifies  the  number  of  entries  in  table  BEADS. 


BDCNT 


ANCHR 
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BDI 


BDIND 


Input  Parameter  Used  by:  BD6V 

Indicates  vhether  a  beaded  or  subscripted  variable  expression  Is  to 
be  processed. 

0  «  subscripted  expression 

1  «  BYTE  esqpresslon 

2  «  BIT  expression 


Item  Local  Used  by:  AXCHR 

Indicates  vhether  a  bead  esqpresslon  to  be  put  In  the  IL  contains 
a  BIT  or  a  BYTE  modifier. 

1  -  BYTE 

2  -  BIT 


BD8V  Procedure  Used  by:  AHCHR,  PUTIN 

Generates  IL  operand,  bead  and  subscript  entries  from  CAT  table 
entries  describing  a  deaded  or  subscripted  variable  e^^resslon. 

BEADS  Table  Express  Used  by:  ANCHR 

This  table  Is  xised  In  a  push>dovn  mazmer  and  contains  Infoxnatlon 
used  In  the  recognition  of  the  parenthesis  required  In  a  beaded 
expression. 

Example :  BYTE  [  A,B  ]  ^VAB^ 

Used  to  recognize  parenthesis  1  &  2 

BIL  File  Ezqpress  Used  by:  MP 

The  binary  IL  table  Is  output  Into  this  file. 

BKI  Item  Local  Used  by:  SRGHR 

Push-down  type  Item  used  to  count  bracketers  (incremented  by  left 
bracketer,  decremented  by  rle^t  bracketers). 

BNWS  Item  Express  Used  by:  ANCHR,  PUTIN 

BDSV 

Indicates  vhether  a  tesqporary  storage  assignment  should  be  changed 
back  to  specify  'result*  (Temp  O) 

1  B  change  back  to  result 
0  ■  do  not  change 
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BOOL 


BOOLl 


BOOL3 


BPDICT 


BPILT 


BFTDT 


BRAKS 


Item  BDqpress  Used  by:  HP 

Indicates  vhen  a  FOR  AXL  statement  is  being  processed 
(FOR  1  -  ALL  (TABLE'KAMI)  $ 

1  ■  FOR  ALL  statement 
0  ■  non-FOR  ALL  statment 

Item  Bsqpress  Used  by:  HP 

Indicates  whether  a  multiple  factor  FOR  statement  is  being  processed. 

1  >  multiple  factor  FOR  statement 
0  >  1- factor  FOR  statement 

Item  Express  Used  by:  MP 

Meaning  of  item  depends  on  use. 

1st  use:  Indicates  whether  a  2-  or  3-factor  FOR  statesMnt  is  being 
processed 

1  ■  2-factor  FOR 
0  •  3-factor  FOR 

2nd  use:  Indicates  \diether  the  3rd  factor  was  terminated  by  a  $ 

1  «  3rd  factor  terminated  by  a  $ 

0  ■  3rd  factor  not  terminated  by  a  $ 

Subscripted  item  from  table  COMHN  Express  Used  by:  - 

Indicates  whether  a  formatted  listizig  of  the  IL  table  entries  has 
been  requested  of  the  translator. 

Subscripted  item  from  table  CCEMTH  Express  Used  by:  - 

Indicates  whether  a  fomatted  listing  of  the  IL  table  entries 
has  been  requested  of  the  translator. 

Subscripted  item  from  table  (XEtCEN  Ezqpress  Used  by:  - 

Indicates  whether  a  formatted  listing  of  the  TDICT  table  entries 
has  been  requested  of  the  translator. 

Switch  Activated  in:  MP 

Sensitive  to  the  fonn  (GASF)  of  an  mtry  with  a  class  of  bracketter 
(CATC  EQ  10). 
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BBGT 

BRK 

BRK 

BBKSW 

BTOD 

BTOD 

BV 


Subscripted  item  from  table  DICT  Ebqpress  Used  by: 

FCr  fixed-point  constants  and  variables: 

if  positive  -  specifies  the  nusfber  of  bits  succeeding  the 
binary  point. 

if  negative  -  specifies  the  number  of  bits  between  the  least 
significant  bit  and  the  blxwry  point. 

For  status  variables: 

contains  the  index  to  STAT  table  entry  which  eross-refemees 
the  storage  of  associated  stati. 

Switch  Activated  in:  ANCHR 

Sensitive  to  the  form  (CATF)  of  an  entry  with  a  class  of  braeketer 
(CATC  EQ  10). 

Switch  Activated  in:  BD8V 

Sensitivetto  the  fozn  (CATF)  of  entries  having  a  class  of  braeketer 
(CATC  EQ  10). 

Switch  Activated  Ih:  SSFRO 

Sensitive  to  the  fora  (CATF)  of  an  entry  with  a  class  of  braeketer  ' 
(CATC  EQ  10). 

Procedure  Used  by:  FRTIL,  PPTCT, 

FBTQ,  FRISR,  ERROR, 
WORSi;  HP 

Converts  binary  numbers  into  standard  transmission  code. 

Output  Parameter  Used  by:  BTOD 

Specifies  the  converted  number  in  standard  transmission  code. 

Item  Express  Used  by:  MP,  ANCHR 

Indicates  when  a  Boolean  assignment  statement  has  been  processed 

by  AircHR. 

0  ■  non-Boolean  statement  processed 

non-0  -  Boolean  statement  processed  and  the  valvie  specified  is 
the  IL  entry  number  of  the  operand  entry  associated  with  the 
IL  GOTO  inserted  by  ANCHB. 
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CALL 

CAT 

CATA 

CATS 

CATC 

CATE 


Item 


Esqprees  Used  by:  MP,  WORST, 

ANCHR 


Contains  the  DICT  entry  nxmiber  of  the  last  procediire  call  processed. 

Table  Contains  items:  CATA,  CATS,  CATC,  CATE,  CATF  Esqpress 

Used  by:  Entire  program- 
Contains  the  object  program  in  coded  notation. 

Subscripted  item  fi*om  table  CAT  Express  Used  by:  Entire  program 

Specifies  the  sign  (if  relevent)  associated  with  the  entry. 

1  «  Minus 
0  =  Plus 


Subscripted  Item  from  table  CAT  Express  Used  by:  Entire  program 
Specifies  the  modifier  (if  relevent)  associated  with  the  entry. 

0  ■  Mull  4  »  CHAR  8  -  POS 

1  «  KENT  5  -  MAKT  9  ■  - 

2  ■  ENT  6  «  ABS  10  -  ODD 

3  «  NWDSEN  7  ■  ALL 


Subscripted  item  from  table  CAT  Express  Used  by:  Entire  program 

Specifies  the  'class'  of  the  information  described  in  the  entry 
(see  the  description  of  CATF  for  the  names  of  the  various  classes). 

Subscripted  item  from  table  CAT  Express  Used  by:  Entire  program 

Contains  the  level  (see  description  of  procedure  AIICHR)  associated 
with  entries  describing  operators; 

Specifies  the  number  of  cards  associated  with  an  entry  of  class 
'Direct  code'  (CATC  EQ  I7). 
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CATF 


Sidsscrlpted  item  tron  table  CAT  Express  Used  by:  Entire  program 


Specifies  the  'form*  or  sub-class  of  the  information  described  in 
the  entry;  the  actual  meaning  is  dependent  on  the  'class'  (CATC)  of 
the  entry. 

Class  (CATC)  Fbrm  (CATF) 


0  =  Hull 

1  s  statement  label 

2  »  File  label 

3  Constant 

4  a  Simple  item 

5  s  Subscripted  item 

6  a  Procedure  label 

7  »  Subscript 

8  B  Sequential  operator 


9  *  Separator 


10  »  Bracketer 


Null 


Dictionary  entry  nusber 
Dictionary  entry  number 
Dictionary  entry  number 
Dictionary  entry  number 
Dictionary  entry  number 
Dictionary  entry  number 
Subscript  number  (l<  n<  26) 


0  =  IF 

1  =  IFEITH 

2  =  ORIP 

3  »  OOTO 


4  B  FOR 

5  -  RETURN 

6  -  STOP 

7  ■  TEST 


0  “  .  3  ■  MB 

1  “  ,  4  ■  $ 

2  “  »  5  “  •  •  • 


0 

1 

2 

i 

5 

10 

U 

12 


END 


6  -  START 

7  -  TERM 

8  *  t  (associated 
with  a  nested  Bead) 

9  *  Double  prime 


(  (associated  with  a  Bead) 

)  (associated  with  a  Bead) 

[  (associated  with  a  nested 

subscript  expression  of 
non-standard  form) 


u 

>  Logical  operator 

0  a  AND 

1  a  OR 

2  a  NOT 

12 

a  Relational  operator 

0  a  LS 

2  a  LQ 

4  a  NQ 

1  a  EQ 

3  a  (a 

5  -  GQ 

13 

a  Arithmetic  operator 

0  a  LS 

3  »  / 

6  a  Unary- 

la. 

4  b## 

7  a  ABS 

2a# 

5  a  'OF' 

(always 

Included  following  an  entry 
describing  a  procedure  call) 
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lU  •  Deelaratlca 


CAXF8 


CAHL 


CCRT 


13  •  Input-Output 

16  >  Bead 

17  ■  Direct  code 

18  >  Temporary  storage 

19  ■  Generated  label 

20  a>  Direct  code  assign¬ 

ment  operand 

(A( )  r 

Input  Parameter 


Svitch 

5  ■  Array 

Procedure 

6  m  Overlay 

dose 

7  -  file 

Item 

8  -  Node 

Thble 

9  ■  Define 

10  *  String 

Input 

3  ■  Open  Output 

Output 

4  ■  Shut  Input 

Open  Input 

3  >  Shut  Output 

BTEB 

2  -  Bead 

BIT 

(string) 

0 
1 
2 

0 
1 

First  card  nuaber  (The  nuriber  of 
cards  is  specified  in  CATB). 

Specifies  the  specific  ten^porary 
storage  'register*  (O  >  result). 

Specifies  the  generated  label 
number. 

Specifies  the  bits  to  the  riflfht 
of  the  binary  point  (Unsigiied); 
all  ones  for  floating  point. 

Used  by:  PUTIN 


Specifies  the  starting  CAT  table  entry  of  the  e:^ession  to  be 
processed. 

Subscripted  item  froai  table  IMC  Local  Used  by:  WORST 

Contains  the  DICT  entry  number  of  the  procedure  called. 

Item  Local  Used  by:  ANCHR 

Specifies  the  number  of  entries  in  table  CCMIA. 
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CHLl  Subscripted  Item  fron  table  mCT  Eiqpress  Used  by:  - 

If  CZiAS  IQ  constant  and  SIND  EQ  1  and  the  nearest  preceeding 
non- constant  entry  is  a  subscripted  item  or  array: 

Specifies  the  nuniber  of  constants  (in  this  row). 

If  C!LAS  EQ  item,  subscripted  item  or  array  and  mm  EQ  1: 

Specifies  the  first  character  byte  in  item  IlMS  of  the 
specified  range  values. 

If  CLAS  EQ  string: 

Specifies  the  index  increment  to  the  next  word  of  this  entry 
containing  beads. 

If  CLAS  EQ  table: 

Specifies  the  nunber  of  entries  in  this  table. 

If  CIAS  EQ  procedure: 

Specifies  the  DICT  entry  nunber  of  the  first  variable  associated 
with  the  procedure  (O  «  xmdeclared  procedure). 

If  CLAS  EQ  file: 

Specifies  the  maximum  nunber  of  blts/bytes. 

If  CLAS  EQ  item  switch: 

Specifies  the  DICT  entry  number  of  the  associated  item. 

CHL2  Subscripted  item  from  table  DICT  E:q>ress  Used  by:  - 
If  CIAS  EQ  praced\u:e: 

Specifies  the  nuniber  of  DICT  entries  associated  with  the 
procedure . 

If  CLAS  EQ  file: 

Specifies  the  first  byte  in  item  IDNS  of  the  hardware  label. 

If  CLAS  EQ  item/numeric  switch: 

Specifies  the  number  of  switch  points. 

If  CLAS  EQ  array: 

Specifies  the  DIME  entry  nunber  containing  the  first  dimension 
of  the  array  (successive  dimensions  are  in  successive  entries). 

If  CLAS  EQ  table  and  DEEN  NQ  2: 

Specifies  the  number  of  associated  DICT  entries. 

If  CLAS  EQ  string: 

Specifies  the  number  of  beads  per  word. 

If  CLAS  EQ  constant  and  SIND  EQ  1  and  the  nearest  preceeding 
non- constant  entry  is  array: 

Specifies  the  DICT  entry  of  the  associated  array. 
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cmD  Subscripted  Iten  from  table  CXMfd  E:qpre88  Used  by:  AHCHR 

Indicates  if  the  last  bracketer  encountered  was  a  left  parenthesis 
or  left  bracket. 

1  *  left  bracket  (therefore  when  a  cotosa  Is  encountered.  It 
anist  texvinate  a  bead  or  sibscript  e^qpression). 

0  ■  left  parenthesis  (therefore  vhen  a  comsHi  is  encountered, 
it  must  be  Internal  to  a  procedure  call). 

CLA8  Subscripted  item  from  table  BICT  Express  Used  by:  MP,  ISSIO,  AHCHR 

Specifies  the  class  of  the  entry. 


0  -  NuU 

1  ■  Statement  label 

2  «  FUe 

3  *  Constant 

4  ■  Simple  item 

3  ■  Subscripted  item 

6  ■  Procedure  function 

7  -  Table 

8  >  Array 

9  ■  Item  switch 

10  «  Huswrlc  switch 

11  «  Close 

12  >  Compool 

13  •  String  variable 

CLASS 

Switch 

Activated  in: 

HP 

Sensitive  to  the  class  (CATC) 

of  an  entry. 

CLASS 

Switch 

Activated  in: 

FUTIH 

Sensitive  to  the  class  (CAXC) 

of  an  entry. 

CL8S 

Switch 

Activated  in: 

AHCHR 

SexuBltive  to  the  class  (CAIC) 

of  an  entry. 

CLOT 

Switch 

Activated  in: 

8800 

Sensitive  to  the  class  (CATC) 

of  an  entry. 

COLSEATA 

Subscripted  item  from  table  (XHMEN  Express  Used  by:  - 

Specifies  the  nusber  of  columns  on  the  input  cards  which  are 
considered  to  contain  data  of  the  object  program. 


CX}LSIN  Subscripted  item  from  table  CCMCTN  Express  Used  by:  - 

Specifies  the  nunber  of  columns  on  the  input  cards  which  are  read. 

Item  Local  Used  by:  BD6V 

Contains  a  count  of  the  nusber  of  conmas  encountered  by  BD6V. 


COMAS 


I 

I 
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OOMI  Item  Local  Used  by:  AHCHR 

Indicates  whether  a  conna  terminates  a  sid>script  expression. 

1  a  comma  texminated  the  expression 
0  «  ri£^t  bracket  terminated  the  eiqpression 

(Xna  Output  Parameter  Used  by:  SSFRO 

Indicates  whether  the  expression  terminated  with  a  ' , ' . 

1  >  terminated  with  a  comma 
0  «  terminated  with  a  non-comma 

OCAMA  Table  Esqpress  Used  by:  AHCHR 

This  table  is  used  in  a  push-down  manner  in  the  analysis  of  commas 
to  determine  when  comnas  terminate  subscript  or  bead  e:qpressions 
and  when  they  terminate  paraiseters  in  procedure  calls. 

OOtMTN  Table  Contains  items:  PCATI,  PSRT,  FI»Q,  PH,  PDCTI,  PCAT2 

BPDICT,  BPILT,  BPTDT,  IIXHT,  COMPOL, 
ORIGIN,  STOP 'IPG,  STOP'IPT,  HCIEM8, 
N'TREG,  N'GLAB,  N'CONX,  (XN'ERR, 
TRAN'ERR,  OOLSIN,  COLSDATA 

Express  Used  by:  MP,  ANCHR,  WORST,  ERROR 

Communication  table  linking  the  central  program  or  system,  the 
generator  and  the  translator. 

OONPOL  Subscripted  item  from  table  CCHMTN  Express  Used  by:  - 

Specifies  the  Ident  of  the  compool  to  be  used  in  the  compilation. 

OONTRL  Table  Contains  item:  Control  Express  Used  by:  (Dummy  table) 
A  dummy  table  to  allocate  space  for  the  system  control  program. 

CONTROL  Subscripted  item  from  table  CONTRL  Express  Used  by:  (Dummy  table) 
Dummy  item. 

Item  Local  Used  by:  PUTIN 

Specifies  the  CAT  table  entry  currently  being  processed  by  PUTIN 


CTPOS 
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BBBtlG 

BBFN 


isle 


File  E^qpress  Used  by:  FRET 

Contains  the  foxnatted  error  messages  and  table  listings. 

Subscripted  item  from  table  DICT  Express  Used  by:  MP,  MfCSR 


Specifies  the  definition  of  the 

0  «  Kull  3 

1  ■  Express  4 

2  «  Conqpool  5 

Input  Parameter 

Indicates  whether  the  CAT  table 

1  a  do  not  clear 
0  a  clear 


entry, 
a  Local 

a  Formal  procedure  input  parameter 
a  Formal  procedure  output  parameter 

Used  by:  BD8V 

entries  examined  are  to  be  cleared. 


rSLEI  Input  Parameter  Used  by:  PUTIH 

Indicates  whether  the  entries  examined  aore  to  be  cleared. 

1  a  do  not  clear 
0  a  clear 


BESIO 


mcT 


DIME 


Procedwe  Used  by:  MP 

Analyzes  and  converts  into  IL  switch  point  expressions  or  GOTO 
expressions . 


Table  Contains  items:  PDAT,  FCHB,  LCPL,  TFBM,  REGI,  SIZE, 

CHL2,  ROBT,  PPHM,  IXPN,  TXPV,  PACK,  TREGE, 
BRQT,  SIED,  IBIT,  CHLl,  CLAS,  EGHB,  DINE 


Ibqpress  Used  by:  Entire  program 

Contains  complete  description  of  the  constants,  tables,  items  etc. 
of  the  source  program  as  derived  from  their  declarations. 


Subscripted  item  from  table  DICT  Express  Used  by:  - 
If  CLAS  EG  file: 

Specifies  the  number  of  characters  in  item  IlEIS  of  the 
hardware  label 

If  CLAS  EQ  constant  and  SIED  EQ  1  and  the  nearest  non- constant 
preceding  entry  is  array: 

Specifies  the  index  (relative  to  O)  of  the  plane 
(3rd  dimension)  of  the  set  of  data 

If  CIAS  EG  array: 

Specifies  the  number  of  array  dimensions 
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If  CLAS  EQ  subscripted  Item  or  string: 

Specifies  the  DICT  entry  nuniber  of  the  associated  label. 

DEERQ  Item  Ebqpress  Used  by:  MP,  IHSQ 

Specifies  the  number  of  entries  in  the  temporcuy  push- down  queue 
(entries  1  and  2  of  table  IRQ). 

DONE  Item  Express  Used  by:  NP 

Indicated  when  an  end-of-flle  has  been  encountered  reading  file 
BCATP  or  when  a  CAT  entry  describing  a  TERM  has  been  encountered. 

1  s  encountered  EOF  or  a  TERM 
0  =  did  not  encounter  an  EOF  or  a  TERM 

DRQ  Table  Contains  Items:  IRQB,  IBOC,  1»QE>  IliQF,  KOI,  11141 

Esqpress  Used  by:  MP,  INSQ,  IFO 

This  table  is  used  in  a  push-down  manner  and  contains  Information 
related  to  the  delayed  processing  required  by  FOR,  IF,  IFEITH,  ORIF, 
PROC,  and  CLOSE  statements.  Entries  1  and  2  of  this  table  are  reserved 
as  a  temporary  push-down  queue  to  facilitate  the  processing  of 
(1)  successive  statements  requiring  delayed- processing  and  (2)  state¬ 
ments  requiring  delayed-processlng  located  Just  prior  to  the  END 
teimlnating  a  compound  statement.  Entries  are  first  made  in  the 
temporary  queue  and  then  moved  into  the  normal  IRQ  at  the  appropriate 
time. 

DRQA  Subscripted  Item  from  table  DRQ  Express  Used  by:  MP,  INSQ 

Specifies  the  type  of  statement  this  entry  refers  to. 

0  s  FOR  statement  3  =  ORIF  statement 

1  =  PROC/CLOSE  statement  4  »  IFEIIEI  statement 

2  s  IF  statement 

DRQB  Subscripted  Item  from  table  DRQ  Express  Used  by:  MP,  INSQ 

Contains  the  value  of  the  statement  parenthesis  counter  (STPC) 
when  the  entry  was  made. 

Subscripted  Item  from  table  I^Q  Ibqpress  Used  by:  MP,  INSQ 

Contains  the  value  of  the  statement  counter  (STMC)  when  the  entry 
was  made. 


DRQC 
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lliO 


ntQD  Subscripted  Item  tran  table  QRQ  Express  Used  by:  MP^  IH8Q 

Contents  varies  according  to  the  type  of  entry 

ntQH  EQ  0  (IOR)  :  Contains  the  SRT  entry  nialser  associated  vith 
the  FOR. 

ntQ^  EQ  1  (FROC/CLOSB):  Contains  the  XL  entry  nuifcer  of  the 
procedure  entrance  in  IL. 

ntQA  EQ  2f3f^  (IF>  IFEITH,  ORIF):  Contains  the  false  transfer 
point  generated  label  nunber. 

ntOE  Subscripted  Item  from  table  IBQ  Express  Used  by:  MP,  IHSQ 

ContalxuB  a  count  of  the  nuaber  of  FOR  statements  this  entry  refers 
to  (laqportant  only  for  parallel  FOR's). 

URSf  Subscripted  Item  from  table  IBQ  Express  Used  by:  MP,  lESQ 

Indicates  vhen  this  entry  references  a  2  or  3  factor  FOR  or  vhen 
a  2  or  3  factor  FOR  statement  has  been  encountered  in  a  parallel 
group. 

ntQI  Subscripted  Item  from  table  ntQ  Express  Used  by:  MP,  IHSQ,  IFO 

Contents  varies  depending  on  type  of  entry  (IliQAi). 

niQA  EQ  0  (for):  Specifies  the  generated  label  number  for  the 
top  of  the  loop. 

ORQI^  EQ  2,3i^/  (IF,  IFEHH,  ORIF):  Specifies  the  first  IL  entry 
nuaber  required  for  the  statement. 

IRQJ  Subscripted  item  from  table  ntQ  Zbqpress  Used  by:  MP,  INSQ,  IFO 

Specifies  the  last  IL  entry  nunber  required  for  an  IF,  IFEHH  or  ORIF 
statement . 
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ntQD  Subscripted  item  from  table  IBQ  Bsqjaress  Used  by:  HP,  IH8Q 

Contents  varies  according  to  the  type  of  entry  (ORQ^). 

DRQfk  EQ  0  (fOR):  Contains  the  SRT  entry  nuriOer  associated  vlth 
the  VOR. 

nU)^  EQ  1  (PBOC/CSiOSE) :  Contains  the  IL  entry  nAaa>er  of  the 
procedure  entrance  in  IL. 

DRQ(l  EQ  2,3,^  (IF^  HEHH,  ORIF):  Contains  the  false  transfer 
point  generated  label  nunber. 

nUQ  Subscripted  item  froa  table  IBQ  E^qpxass  Used  by:  MP,  lESQ 

Contains  a  co\int  of  the  nunher  of  FOR  statements  this  entry  refers 
to  ( important  only  for  parallel  FDR's). 

0R4F  subscripted  item  from  table  ntQ  Fbqpress  Used  by:  MP^  1E8Q 

Indicates  vhen  this  entry  references  a  2  or  3  factor  FOR  or  vhen 
a  2  or  3  factor  FOR  stateswnt  has  been  encountered  in  a  parallel 
group. 

lEtQI  S\d>scrlpted  item  from  table  ntQ  Bsqpress  Used  by:  MP,  INSQ,  HO 

Contents  varies  depending  on  type  of  entry  (mQd). 

IRQ^  EQ  0  (for):  Specifies  the  generated  label  number  for  the 
top  of  the  loop. 

DRQfl  EQ  2,3,^f  (IF,  IFEITH,  ORIF):  Specifies  the  first  IL  entry 
number  required  for  the  statement. 

mQJ  Subscripted  item  from  table  ntQ  E^cpress  Used  by:  MP,  IHSQ,  IFO 

Specifies  the  last  IL  entry  nuniber  required  for  an  IF,  IFEITU  or  ORIF 
statement . 
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SEES  Output  Parsneter  Used  by:  WSf 

Ctpeelfles  the  error  exit  for  the  procedure. 

EED6  Switch  Activated  in:  MP 

Sensitive  to  the  type  of  delsyed-processlng  (DBQA)  req]ulred. 

ERAS  Item  Local  Used  by:  ANCHR 

Indicates  whether  entries  are  to  be  cleared  in  the  CAI  table  as  they 
are  translated  into  IL  entries. 

1  s  do  not  erase  entry 
0  *  erase  entry 

EROIT  Item  E:qpress  Used  by:  ERROR 

Set  to  zero  initially.  Count  of  entries  to  EREtOR  procedure. 

ERROR  Procedure  Used  by:  MB,  FACT,  QE8IGH,  TiKlTH,  WORST,  AHCHR, 

SaPRO,  POSGD,  PUTIN,  BDSV,  XFRPT 

Composes  an  error  message  into  item  IMACS. 

EXCP  Item  Local  Used  by:  WORST 

Indicates  when  one  of  WORST'S  local  tables  has  been  exceeded. 

1  «  local  table  exceeded 
0  s  local  table  not  exceeded 
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nLCT  Procedux*e  Used  by:  Iff 

Analyzes  the  expressions  or  factors  of  a  FOR  stateoent  and  converts 
the  e:q^sslons  Into  IL* 

IBIT  Subscripted  item  fTon  table  DICT  E^qpress  Used  by:  - 

If  CIA8  B2  subscripted  Itea  and  the  Item  is  in  a  table  with  specified 
packing: 

Specifies  the  first  bit 

FCRB  Subscripted  item  from  table  DICT  ftgpress  Used  by:  ITOI 

Specifies  the  first  character  byte  in  item  ms  of  the  Identifiers 
associated  with  the  entry. 

FIL  Item  Local  Used  by:  BDSV 

Specifies  the  IL  entry  at  which  the  subscripted  or  beaded  variable 
is  to  be  located. 

FIRST  Item  S:gpre8S  Used  by:  Iff,  AHCBR, 

1I.0C,  LVLCP 

Procedure  ANCBR  coomences  azmlyzlng  GAT  table  starting  with  the 
entry  specified  in  this  item. 

FIRST  Input  Parameter  Used  by:  HDF 

Specifies  the  starting  character  position  in  item  mMSB  into  which 
the  formatting  is  to  be  done. 

IPIM  Subscripted  item  from  table  DICT  E^^ress  Used  by:  • 

If  CIAS  EQ  procedure: 

Specifies  the  number  of  formal  parameters 
If  CIAS  EQ  subscripted  item  or  a  string  variable  in  a  table  with 
specified  packing: 

Specifies  the  word  of  the  entry  for  the  item  or  string 
If  CIAS  EQ  table,  array,  item,  statement  label,  close,  numeric 
switch,  item  switch,  or  file  and  DEFN  GBl  3: 

Specifies  the  formal  parameter  number 

FEP  Item  Express  Used  by:  Iff,  AECHR, 

XRfPT 

Contains  the  generated  label  number  of  the  'false  transfer  pdint' 
of  a  relational  statement. 
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Subscripted  Item  table  (XMfTR  Express  Used  by:  ERROR 

Indicates  Aether  errors  vere  discovered  In  the  object  program  by 
the  generator. 

Item  E^qpress  Used  by:  MP,  ARCHR,  DBSIG 

Specifies  the  nimlber  of  generated  labels  currently  assigned 
(synonomous  with  lAGSt). 

Item  Local  Used  by:  OFTK 

Indicates  whether  an  IL  GTO  (ILO  EQ  I9)  entry  was  encountered 
while  trying  to  optimize. 

1  >  GTO  entry  encountered 
0  B  non-GTO  entry  encountered 

Item  Local  Used  by:  OFIM 

Indicates  whether  an  IL  GTO  (ILO  BQ  15)  or  dumy-TST  (ILO  £Q  23, 

ILE  EQ  0)  entry  was  encountered  while  trying  to  optimize. 

1  B  GTO  or  Dumny-l^  encountered 
0  =  non  GTO  or  non-Dummy-TST  encountered 
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HEDStf  Stfltch  Activated  In:  FRXHD 

Sensitive  to  the  nuaiber  of  the  heading  to  be  printed  (PIl)< 

HL  Output  Parameter  Used  by:  TOUiS 

Gontains  those  characters  of  TC  which  were  converted. 

HOUiS  Procedxire  Used  by:  RQIT 

Converts  standard  transmission  characters  into  Hollerith  code. 
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IBEiMT  Subscripted  Item  from  table  OOMCTN  Express  Used  by:  - 

Specifies  the  ident  of  the  object  program. 

IONS  Item  Ebqpress  Used  by:  Etatire  Program 

Contains  all  Identifiers,  literal  constants,  preset  data  constants, 
range  constants,  define  labels  and  hardware  labels  in  STC  code. 

IFEIX  Item  Express  Used  by:  MP,  INSQ 

Contains  the  generated  label  number  of  the  bottom  of  the  I7EITH 
statement  currently  being  processed. 

IPO  Procedinre  Used  by:  MP 

Generates  IL  'infoimation*  type  entries  which  supply  the  boundary 
IL  entry  numbers  of  a  relational  statonent  referring  to  the  label 
preceding  the  'information*  entries. 

IFOI  Item  Local  Used  by:  OPTM 

Indicates  when  an  IFO  IL  entry  (ILO  EQ  3^)  and  its  associated  IL 
operand  entry  must  not  be  cleared. 

1  =  do  not  clear 
0  *  clear 

IL  Table  Contains  items:  ILC,  HA,  II£,  US,  ILO,  ILD,  UP,  II£, 

ILR,  ILI,  ILY,  ILZ 

Express  Used  by:  MP,  PACT,  DESIG,  OPNL,  OPTM,  STLE,  IPO,  PRTIL, 

ANCHR,  XFRPT,  PUTIN,  BDSV 

Contains  the  intermediate  language  representation  of  a  program. 

ILA  Subscripted  item  from  table  IL  Express  Used  by:  (see  table 

description) 

Meaningful  only  if  ILC  EQ  1,  2,  3  (operand,  subscript  or  bead  forms). 
Indicates  the  sign  of  the  form. 


1  Si  Minus 
0  *  Plus 
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Subscripted  Item  from  table  IL  Express  Used  by:  (see  tsble 

description) 


Meaningful  only  in  operand,  subscript  or  bead  fom  entries. 
(ILC  EQ  1,2,3) 


Specifies  the  modifier  of  the  entry. 


0  «  Hull  4  «  CHAR 

1  -  HERT  5  -  mart 

2  -  ENT  6  -  ABS 

3  -  RWDSEN  7  -  AUi 


8  -  POS 

9  «  Run 
10  -  OH) 


Subscripted  item  from  table  IL  E:qpress  Used  by:  (see  table 

description) 

Specifies  the  font  or  type  of  entry. 

0  ■  operator  form  2  >  subscript  form 

1  -  operand  form  3  ■  bead  form 

Subscripted  item  from  table  IL  E:qpress  Used  by:  (see  table 

description) 

Specifies  the  code  or  type  of  infoxmation  in  item  ILP. 

0  >  JLF  contains  a  DICT  entry  nudier 

1  s  ILF  contains  a  generated  label  nunber 

2  «  ILF  contaixM  a  subscript  nunber 

3  «>  ILF  contains  a  termporary  storage  nuadber 


Procedure  Used  by:  PRUL 

Converts  the  code  (ILD)  and  channel  (lU*)  of  an  IL  entry  into 
output  fozmat. 

Subscripted  item  fozm  table  IL  Express  Used  by:  (see  tAble 

description) 

Value  depends  on  the  class  of  the  entry  (iLC) 

ILC  EQ  0  (operator): 

(1)  if  ILO  BQ  26  (TST):  contains  the  generated  label  nuBd>er 
as  a  transfer  point  to  the  top  of  a  FOR  loop. 

(2)  for  all  other  values  of  ILO:  contains  the  statement 
number  relative  to  the  last  label. 

ILC  EQ  1  (operand):  If  the  operand  is  under  a  SUN  operator  entry: 

contains  the  EICT  entry  nunber  of  the  constant 
associated  vith  a  switch  point. 
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If  this  Is  the  first  operand  entry  following 
a  POL  entry:  contains  a  count  of  the  nuid)er 
of  parameters  in  the  procedure  call. 

ILC  EQ  2,  3  (subscript  or  bead):  contains  the  DICT  entry  nusiiber  of 

the  constant  Increment  of  the  expression. 

Subscripted  item  from  table  IL  Express  Used  by:  (see  table 

description) 

Value  depends  on  the  code  of  the  entry  as  specified  by  ILD. 

Input  Parameter  Used  by:  ILDF 

Specifies  the  IL  entry  number  of  the  entry  to  be  processed. 

Subscripted  item  from  table  IL  Express  Used  by:  (see  table 

description) 

Indicates  the  type  of  bead. 

1  =  BIT 
0  »  BYTE 

Subscripted  item  from  table  IL  Esqpress  Used  by:  (see  table 

description) 

Meaningful  only  in  an  information  operator  entry  or  the  operand 
entry  following  an  information  operator  entry. 

Specifies  an  IL  entry  number.  If  in  an  operator  entry  -  contains  the 
entry  number  of  the  Ist  entry  of  the  relational  statement  with 
which  the  label  entry  preceding  the  information  entry  is  associated. 
If  in  an  operand  -  contains  the  last  entry  number  for  the  relational 
statement . 

Item  Local  Used  by:  ANC3IR 

Contains  the  IL  table  entry  of  the  first  (or  left)  operand  of  a 
nested  bead  assignment  statement. 
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Subscripted  item  from  table  IL 

ExpreBB  Used  by:  (see  table 

description) 

Meaningful  only  In  operator  entries  (ILC  EQ  O) 

Specifies  the  operator  In  the  entry 

0 

-  Null 

18 

Start 

1 

-  LS 

19 

Term 

2 

-  EQ 

20 

Stop 

3 

m  LQ 

21 

Assign  (-) 

U 

a  CSt 

22 

Exchange  (■•) 

5 

-  NQ 

23 

Load  (1st  FOR  factor) 

6 

a  QQ 

24 

Increment  (2nd  FOR  factor) 

7 

a  + 

25 

Test  (3rd  FOR  factor) 

8 

■  - 

26 

Master 

9 

a  * 

27 

Direct  code 

10 

-  / 

28 

Input 

U 

a  «« 

29 

Output 

12 

a>  Procedure  call 

30 

Open  input 

13 

>  Procedure  entrance 

31 

Open  output 

Ik 

■  Procedure  exit 

32 

Shut  input 

15 

-  GOTO 

33 

Shut  output 

16 

17 

>  Label 
<■  Switch  name 

34 

Information 

nfOS  Input  Parameter  Used  by:  XTBFT 

Specifies  the  IL  table  entry  of  the  last  relational  operator 
entered  into  the  IL. 

HR  Subscripted  Item  from  table  IL  B^^ess  Used  by:  (see  table 

description) 

Meaning  depends  on  class  of  entry  (ILC) 

ILC  EQ  0  and  ILO  EQ  LBL:  1  -  this  label  Is  at  the  top  of  a  FOR  loop 

0  -  normal  label 

ILC  £Q  1  and  if  this  is  the  first  operand  following  a  relational 
operator  (l  ILO  6):  1  -  sense  of  operator  was  reversed 

0  -  sense  of  operator  not  reversed 

If  HiC  EQ  1  and  the  operands  represent  the  parameters  from  a 
procedure  call:  1  -  output  parameter 
0  -  input  parameter 
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Subscripted  item  from  table  IL  E^q^ss  Used  by: 

Meaningful  only  if  ILC  EQ  0  and  ILO  BQ  Sd*. 

Indicates  if  this  is  a  dvaaniy  TST  entry. 


(see  table 
description) 


1  >  dirnsny  TST 
0  ■  non-dummy  TST 

ILZ  Subscripted  item  from  table  IL  Express  Used  by:  (see  table 

description) ' 

An  abbreviated  form  of  ILF  (has  fewer  bits). 


IMAGE 


Item  Express  Used  by:  NP,  ERROR,  FRRT, 

PHTIL,  PPTCT, 
njF,  PRTHD, 
FRTSR,  PRTQ,  RTOI 

Item  output  by  FRNT  which  contains  formatted  e:qpressions  to  be 
printed . 


INSQ  Procedure  Used  by:  MP 

Makes  entries  into  the  DRQ  table  depending  on  the  type  of  delayed- 
processing  required  by  certain  statements. 

lOFi  Item  Local  Used  by:  ANCHR 

Indicates  whether  an  input  or  an  output  parameter  of  a  procedure  call 
is  being  processed. 


1  “  output  parameter 
0  »  input  parameter 

lOS  Item  Express  Used  by:  ANCHR 

Indicates  that  input/output  statement  is  being  processed. 
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JOB  Switch  Activated  in:  WORST 

Sensitive  to  the  of  processing  to  he  perfoxved  by  the 

procedure . 
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LB(» 

LELOC 

LBPOS 

LCAT 

LEFT 

LEV 

LEVEL 


Item  Fbqpress  Used  by:  MP,  ARCHR, 

HOC,  LVLCP 

Procedure  ANCHR  terminates  Its  analysis  of  CAT  table  entries  at 
the  entry  specified  In  this  Item. 

Item  E:q>ress  Used  by:  MP,  ANCHR 

Specifies  the  number  of  generated  labels  currently  assigned 
(synonomous  with  GLAB). 

Item  Local  Used  by:  ANCHR 

Contains  the  CAT  table  entry  describing  the  left  bracket  of  a 
nested  subscript  e:qpresslon  of  standard  form. 

Subscripted  Item  from  table  SS  Express  Used  by:  ANCHR,  SSPRO 

Contains  the  CAT  table  entry  nunber  describing  the  left  bracket 
of  this  subscript  esqpresslon. 

Item  Local  Used  by:  BDSV 

Specifies  the  CAT  table  entry  currently  being  processed  by  BDSV. 

Item  Express  Used  by:  ANCHR,  LVLCP 

Specifies  the  CAT  table  entry  nuniber  of  the  operator  Immediately 
to  the  left  of  the  'emchor  point' . 

Output  Parameter  Used  by:  LVLCP 

Indicates  the  outcome  In  the  attempt  to  locate  an  'anchor  point'. 

0  s  no  'anchor  point*  detennlned 

1  =  'anchor  point'  determined 

2  =  end-of- statement  encountered 

3  =  no  level  encountered  in  the  statement 

Item  Local  Used  by:  ANCHR 

Indicates  whether  an  'anchor  point'  has  been  detennlned. 

0  »  no  'anchor  point';  assign  temporary  storage  if  required 

1  -  'anchor  point'  determined,  process  operator 

2  s  an  end-of* statement  'anchor  point'  was  determined 

3  =  no  'anchor  point',  unable  to  locate  an  operator  left  of 
the  current  'anchor  point*  within  the  expression. 


10  July  1962 


152 


lM-555/020/00 


LIL 

LLGAT 

UO 

LLOC 

LLOC 

LR 

LNAME 

LNQH 

LNGOB 

LOG 

LOG 


Item  Local  Used  by:  BDSV 

Specifies  the  IL  entry  at  which  the  subscript  or  bead  expression 
is  to  be  located. 

Input  Parameter  Used  by:  BD8V 

Specifies  the  starting  GAT  table  entry  nuniber  of  the  expression 
to  be  processed. 

Output  Parameter  Used  by:  LLOG 

Specifies  the  entry  number  in  the  CAT  table  of  the  entry  at  which 
the  scan  was  terminated. 

Input  Parameter  Used  by:  ANCHR,  LVLCP 

Performs  a  backward  scan  thru  the  CAT  table  searching  for  an  entry 
having  a  level  (GATE  EQ  O). 

Input  Parameter  Used  by:  XFRPT 

Specifies  the  CAT  table  entry  last  located  by  procedure  LLOC. 

Item  Local  Used  by:  ARCHR 

Specifies  the  number  of  entries  in  table  LOGIC. 

Item  Express  Used  by:  NP,  ERROR 

Contains  the  DICT  entry  number  of  the  last  statement  label 
encountered. 

Output  Parameter  Used  by:  LNOIH 

Indicates  the  number  of  entries  scanned  by  the  procedure. 

Procedure  Used  by:  MP,  OBSIG 

Performs  a  scan  of  the  CAT  table  looking  for  a  comma  or  a  $. 

Item  E:q>ress  Used  by:  MP 

Contains  the  IL  entry  nuniber  of  the  first  entry  used  by  the  state- 
ment  c\u'rently  being  processed. 

Item  Local  Used  by:  SRCHL 

Specifies  the  CAT  table  entry  currently  being  examined  by  procedure 
dhCHL . 
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LOG 

LOCA 

LOCO 

LOGO 

LOG 

LOGIG 

LOP 

LOPR 

LOWS 


Item  Local  Used  by:  SRCBR 

Specifies  the  GAT  table  entry  currently  being  examined  by  procedure 
SRGHR. 

Subscripted  Item  from  table  lAfC  Local  Used  by:  WOI^ 

Gontalns  the  IMC  entry  nunber  describing  the  first  procedure  call 
made  by  the  procedure  specified  in  the  term  GAWL  of  this  entzy. 

Input  Parameter  Used  by:  SIKXL 

Si>eclfle8  the  starting  CAT  table  entry  number  for  the  scan. 

Input  Parameter  Usee  by:  SRGHR 

Specifies  the  starting  CAT  table  number  for  the  scan. 

Table  Gontalns  item:  LOGIC  Ebqpress  Used  by:  ARCHR 

This  table  Is  iised  in  a  push-down  manner  and  contains  Information 
used  in  the  analysis  of  the  NOT  relational  operator  (indicates 
when  relational  operators  are  under  the  Influence  of  a  NOT). 

Stepped  by:  each  NOT 

Reduced  by:  if  the  level  in  an  entry  is  less  than  the  current 
base  on  relational  operators,  Boolean  itesis  or 
right  parentheses. 

Subscripted  item  from  table  LOG  E^qpress  Used  by:  ANCHR 

Contains  the  base  +  20  at  the  time  a  NOT  is  encountered.  Is  used 
to  determine  when  relational  and  Boolean  ejqpressions  are  under  the 
influence  of  a  NOT. 

Switch  Activated  in:  ANCHR 

Sensitive  to  the  form  (CATF)  of  an  entry  with  a  class  of  logical 
operator  (CATC  £Q  U). 

Subscripted  item  fr<.m  table  LWC  Local  Used  by:  WORST 

Contains  the  PWS  entry  number  of  the  PWS  entry  describing  the 
procedure  specified  in  tiem  CAWL  of  this  entry. 

Subscripted  item  from  table  LWC  Local  Used  by:  WORST 

Specifies  the  amoimt  of  temporary  storage  required  prior  to  making 
the  procedure  call. 
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Item  Esqprese  Used  by:  HP,  BSIOR 

Contains  a  count  of  the  nuaber  -1  of  statements  processed  since 
the  last  statement  label  vas  encountered. 

Output  Parameter  Used  by:  8IICHL 

Indicates  vhether  the  scan  vas  successful. 

1  *  successful 
0  «  unsuccessful 

Procedure  Used  by:  AKSR 

Attempts  to  locate  an  anchor- point  in  the  CAT  table. 

Table  Contains  items:  LOCA,  LOPR,  CAVL,  PROW,  LOWS 

Local  Used  by:  WORST 

Contains  itUTormatlon  about  the  amount  of  tenporary  storage  required 
at  procedure  calls. 
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KAXWS 


MID 


MmJS 


Item  Eiqpiress  Used  by:  NP,  AXCHR,  WORST 

Specifies  the  msxiwim  amo\mt  of  tesqporaxy  storage  required  by  a 
program. 

Item  X:qpress  Used  by:  ARC8R 

Specifies  the  GAT  table  entry  of  the  last  operator  entered  into 
the  ICi . 

Item  S:qp(ress  Used  by:  MP,  ISSIO 

Indicate  vhether  an  item  switch  point  has  a  negative  constant 
associated  with  it. 

1  -  negative  constant 
0  positive  constant 
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N'OONX  Stibscripted  Item  from  table  OOIMTH  E^qpress  Used  by:  - 

Specifies  the  ntnber  of  constants  in  the  object  program. 

N'CO^  Subscripted  item  from  table  OOMCEH  Express  Used  by:  HP 

Specifies  the  nuB&>er  of  labels  supplied  by  the  generator. 

N'TEEG  Subscripted  item  from  table  (XMm  Express  Used  by:  VOBSI 

Specifies  the  amount  of  tesqporary  storage  required  by  the  object 
program. 

NCHB  Subscripted  item  from  table  DICT  Express  Used  by:  HTOI 

If  CLAS  EQ  constant  and  SIHD  EQ  1  and  the  nearest  preceding 
non-constant  entry  is  a  subscripted  item  or  array: 

Specifies  the  nunber  of  bytes  in  the  first  constant  set 
(excluding  the  separator  character). 

For  all  other  classes: 

Specifies  the  nusber  of  character  bytes  in  item  ms  of  the 
identifier  associated  vlth  the  entry. 

NCIDNS  Subscripted  item  from  table  COMtTN  Express  Used  by:  - 

Specifies  the  nunber  of  characters  of  infonaatlon  contained  in 
item  Icns. 

IHHQ  Item  Ebqpress  Used  by:  HP,  IKSQ 

Specifies  the  nunber  of  entries  -1  in  the  IRQ  table. 

NEST  Item  E:qpress  Used  by:  MP,  IN8Q 

Contains  a  count  of  the  number  of  sibscrlpts  currently  active. 

NIL  Item  Express  Used  by:  MP,  FACT,  IXSIG, 

INSQ,  STLE,  IFO 

Contains  the  number  of  entries  -1  in  the  IL  table. 

NLEL  Item  Local  Used  by:  OPIM 

Specifies  the  nunber  of  statement  labels  encountered  vhlle  attenqptlng 
to  optimize. 

NLWC  Item  Local  Used  by:  WORST 

Specifies  the  nunber  of  entries  -1  in  table  IMC. 

NO  Input  Parameter  Used  by:  NOLLS 

Specifies  the  number  of  characters  to  be  converted. 


I 


10  July  1962 


157 


TM-555/020/00 


NOBDS  Item  Local  Used  by:  BD6V 

Gontaina  the  SICT  mttry  mad>er  of  the  cozuitant  0;  however,  may 
contain,  teBqporarlly,  the  DICT  entry  nuaiber  of  the  constant  1  if 
the  'nuidier  of  characters'  portion  of  a  beaded  expression  is 
missing. 

NOPAR  Item  Local  Used  by:  ANCHR 

Contains  a  count  of  the  number  of  parameters  encountered  in  a 
psrocedure  call. 


NOW 

NOV 

NPNL 

NFWS 

NSRT 

NSS 

NSS 

NTOI 

HUM 


Item  Local  Used  by:  MP 

Contains  the  nindber  of  working  storage  assignments  currently  made 
in  a  statement  (synonomous  with  NWS). 


Item  Local  Used  by:  WORST 

Specifies  the  nuidber  of  working  storages  -2  assigned  prior  to  the 
last  procedure  call. 

Item  Local  Used  by:  WORST 

Specifies  the  number  of  entries  -1  in  table  PNL. 

Item  Local  Used  by:  WORST 

Specifies  the  nusiber  of  entries  -1  in  table  PWS. 

Item  Express  Used  by:  MP,  FACT 

Specifies  the  number  of  entries  -1  in  the  SRT  table. 

Item  Express  Used  by:  ANCHR,  SSFRO 

Contains  the  number  of  entries  in  table  SS. 


Input  Parameter  Used  by:  SSFRO 

Specifies  the  SS  table  entry  associated  with  the  expression. 


Procedure  Used  by:  PRTIL,  ERROR, 

WORST,  nJF 

Obtains  the  name  of  a  variable  described  in  a  DICT  table  entry  fraai 
the  item  II^  and  places  it  into  the  item  IMAGE. 


Item  Local  Used  by:  NTOI 

Specifies  the  number  of  characters  of  an  identifier  to  be  trans¬ 
ferred  to  IMAGE. 
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NWS  Itan  Express  Used  by: 

Specifies  the  msriser  of  temporary  storsige  "registers” 
assigned  in  a  stateaent. 


AMCHR,  WORai 
currently 


I 
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ODCLS  Sviteh  Activated  In:  BDSV 

Sensitive  to  the  class  of  an  entry  (CAIIC). 

OmCC  Item  Local  Used  hy:  AlCHR 

Contains  the  IL  entry  nuniber  of  the  last  parameter  entered  into 
the  IL. 

OOP  Output  Parameter  Used  by:  FOSOD 

Specifies  the  CAT  table  entry  at  vhich  the  scan  was  teminated. 

01X>0S  Itan  Local  Used  by:  AHCHR 

Specifies  the  CAT  table  entry  nuniber  of  an  opercmd  to  be  entered 
into  the  IL  table. 

OLAY  Subscripted  item  from  table  LdCT  E^qpress  Used  by:  IBSIG 

If  CLAS  EQ  item,  table,  array  or  file: 

0  s  not  \ised  in  an  overlay 
1  ■  used  in  an  overlay 

owe  Item  E:q>ress  Used  by:  MP,  FACT,  AHCHR 

Contains  the  IL  entry  number  of  the  last  operator  entry  generated. 

OPPRM  Item  Loced  Used  by:  XFRPT 

Contains  the  type  of  logical  operator  described  in  the  'anchor 
point'  CAT  table  entry. 

1  =  OR 
0  s  AHD 

OPI  Item  Local  Used  by:  AHCHR 

Indicates  whether  the  last  CAT  table  entry  examined  described  an 
operator . 

1  =  described  an  operator 
0  B  described  a  non-operator 

OPLVL  Item  Local  Used  by:  XFRPT 

Contains  the  level  (or  the  adjusted  level  -  see  description  of 
XFRPT)  of  the  logical  operator  described  in  the  'anchor  point' 

CAT  table  entry. 
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OFND  Procedure  Used  by:  MP,  nSSIO,  PACT 

Converts  an  entry  of  the  CAT  table  specifying  a  dictionary  referenced 
variable  or  a  s\d>seript  into  an  IL  operand  entry. 

OPTM  Procedure  Used  by:  MP 

Determines  the  possibility  of  eliminating  QOTO,  TB3T  and  REIURH 
statements,  and  optimizes  transfers  implied  by  such  statements  by 
effecting  the  djsplied  transfer  thru  the  alteration  of  transfer 
points  contained  in  IL  'GOTO'  entries  having  generated  labels  as 
transfer  points  or  IL  'relational*  entries. 

OPTM  Output  Parameter  Used  by:  OPTM 

Indicates  whether  a  QOTO,  TEST  or  RETURN  statement  can  be  eliminated. 

1  s  eliminate 
0  B  do  not  eliminate 

ORIGIN  Subscripted  item  from  table  OCNtCTN  E^^ess  Used  by:  - 

Specifies  the  starting  location  for  the  object  program. 


OVER 

Table  Items  OVX 

Dunny  table. 

Express 

Used  by: 

OVX 

Subscripted  item  from  table  OVER 

Dummy  item. 

Express 

Used  by: 
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PI  Input  Parameter  Used  by:  PACT 

Specifies  the  CAT  table  entry  nuniber  of  the  starting  position  of 
the  e:q>resslon. 

PI  Input  Parameter  Used  by:  OPRD 

Specifies  the  receiving  entry  nuaiber  in  the  IL  table. 

P2  Input  Parameter  Used  by:  PACT 

Specifies  the  operator  (LOC,  INC,  TST)  which  is  to  be  inserted  in 
the  Hi. 

P2  Input  Parameter  Used  by:  OFND 

Specifies  the  entry  nusd>er  of  the  CAT  table  to  be  converted  into  IL. 

P3  Output  Parameter  Used  by:  PACT 

Indicates  the  delimiter  at  the  end  of  the  e:q;>resslon. 

1  s  'COBBOa' 

0  «  $ 

PU  Output  Parameter  Used  by:  PACT 

Specifies  the  terminating  CAT  table  entry  of  the  expression. 

P5  Output  Parameter  Used  by:  PACT 

Error  exit  used  by  the  procedure. 

PACK  Subscripted  item  from  table  PICT  Express  Used  by:  - 

Specifies  the  packing  of  a  subscripted  item  or  table. 

0  s  Null  3  Medium  (M) 

1  Specified  4  =  Dense  (D) 

2  s>  Loose  or  none  (N) 

PANEL  Item  E:qpress  Used  by:  MP 

Indicates  when  a  FOR  statement  is  part  of  a  parallel  group  of  FOR 
statements . 

1  =  part  of  a  parallel  group 
0  >  non- parallel  FOR 

PCATl  Subscripted  item  from  table  COMfTN  Ibqpress  Used  by:  - 

Indicates  whether  a  formatted  listing  of  the  CAT  table  entries  has 
been  req,uested  of  Qexil. 
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PCAT2 


PD4T 


PDcrr 


FIBQ 


PIl 


PIl 


Subscripted  item  from  table  COMCFN  Express  Used  by:  ARGHR 

Indicates  Aether  a  foraatted  listing  of  the  CAT  table  entries  has 
been  requested  of  0en2. 

1  >  formatted  listing  requested 
0  B  formatted  listing  not  requested 

Subscripted  item  from  table  DICT  E:qpress  Used  by:  MP,  ARCHR 

If  CLAS  EQ  file: 

0  -  fixed  length  records 
1  =  variable 

If  CLAS  EQ  table: 

0  B  fixed  length 
1  B  variable  length 

If  CLAS  EQ  item,  subscripted  item  or  array  and 
TXPV  EQ  A,  D,  F,  I  or  K: 

0  B  unsigned 
1  B  signed 

If  CLAS  EQ  procedure: 

0  B  express  items  are  set  in  the  procedure 
1  B  no  express  items  are  set  in  the  procedure 

Subscripted  item  from  table  CnMTN  Eiqpress  Used  by:  - 

Indicates  whether  a  formatted  listing  of  the  DICT  table  entries  has 
been  requested  of  Genl. 

Subscripted  item  from  table  OOMMTN  Ebqpress  Used  by:  MP 

Indicates  whether  a  formatted  listing  of  the  IXiQ  table  entries  has 
been  requested  of  Gen2. 

Input  Parameter  Used  by:  DBSIG 

Specifies  the  type  of  expression  to  be  processed. 

0  B  goto  statement 

1  B  numeric  switch 

2  B  item  switch 

Input  Parameter  Used  by:  ERROR 

Specifies  the  number  of  the  error  message. 
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PIl  Input  Paraoaeter  Used  by:  mSQ 

Specifies  the  type  of  statement  requiring  delayed-processing. 

0  >  FOR  statesMnt  3  ■■  ORIF  statesiaat 

1  8  Procedure  or  Close  declaration  U  ■  IFBITH  statement 

2  8  IF  statement 

PU  Input  Parameter  Used  by:  LNCOH 

Specifies  the  entry  number  in  the  CAT  table  of  the  starting 
position  of  the  scan. 

PU  Input  Parameter  Used  by:  NTOI 

Specifies  the  DICT  entry  nusiber  of  the  variable  to  be  processed. 

PIl  Input  Parameter  Used  by:  OPTM 

Specifies  the  label  (either  by  number  for  generated  labels  or  by 
DICT  entry  nuniber  for  program  labels)  to  be  considered  In  the 
optimizing  process. 

PIl  Input  Parameter  Used  by:  PRTHD 

Specifies  the  heading  to  be  printed. 

0  8  IL  headliig  2  8  DRQ  heading 

1  8  SBT  heading  3  =  working  storeige  heading 

PIl  Input  Parameter  Used  by:  FBTIL 

Specifies  the  IL  entry  number  of  the  first  entry  to  be  processed. 

PU  Input  Parameter  Used  by:  PRTQ 

Specifies  the  DRQ  entry  nuiiA>er  of  the  first  entry  to  be  processed. 

PU  Input  Parameter  Used  by:  PBTSR 

Specifies  the  SRT  entry  number  of  the  first  entry  to  be  processed. 

PU  Input  Parameter  Used  by:  STLE 

Specifies  the  type  of  label  to  be  entered  into  the  IL  entry. 

1  8  generated  label 
0  8  statement  label 

PI2  Input  Parameter  Used  by:  DESIG 

Specifies  the  beginning  entry  number  In  the  CAT  table  of  the 
expression  to  be  processed. 
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PI2  Input  Parameter  Used  by:  IHSQ 

Contents  depend  on  the  type  of  entry  (PU)* 

PU  BQ  0  -  specifies  the  SRT  channel  number  associated  vlth 
the  lOR  statement. 

PI2  EQ  1  -  specifies  the  exit  label  for  the  Procedure  or  Close 
declaration. 

P12  EQ  **  specifies  the  false  transfer  point  associated 

vith  the  statement. 

PI2  Output  Parameter  Used  by:  UKUH 

Specifies  the  texmlnal  entry  in  the  CAT  table  of  the  expression 
scanned. 

PI2  Input  Parameter  Used  by:  HTOI 

Specifies  the  starting  character  position  in  item  IKACS  into  vhlch 
the  name  is  to  be  placed. 

PI2  Input  Parameter  Used  by:  SII£ 

Specifies  the  DICT  entry  number  of  the  label  if  PU  EQ  0  or  the 
actual  nuniber  of  the  generated  label  if  PIl  BQ  1. 

PI2  Input  Parameter  Used  by:  OPTM 

Specifies  the  type  of  label  contained  in  PU. 

0  3  statement  label 
1  3  generated  label 

PI2  Input  Parameter  Used  by:  PRUL 

Specifies  the  IL  entry  nuniber  of  the  last  entry  to  be  processed. 

PI2  Input  Parameter  Used  by:  PRTQ 

Specifies  the  DRQ  entry  number  of  the  last  entry  to  be  processed. 

PI2  Input  Parameter  Used  by:  PBTSR 

Specifies  the  SRT  entry  number  of  the  last  entry  to  be  processed. 

PU  Subscripted  item  from  table  COMCTN  Express  Used  by:  MP 

Indicates  whether  a  formatted  listing  of  the  IL  table  entries  has 
been  requested  of  Qen2. 
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PliOC 

FNL 

FULL 

POl 

F02 

FOLOC 

FOS 

FOSOD 

FFTCT 

FRCD 


Item  Express  Used  by:  INSQ 

Contains  the  IRQ  entry  number  of  the  last  procedure  or  close. 

Subscripted  Item  fran  table  FNL  Local  Used  by:  WORST 

Contains  the  lAfC  entry  number  of  the  procedure  being  processed. 

Table  Contains  Item:  FNL  Local  Used  by:  WORST 

Used  In  a  push-dovn  manner  to  regulate  the  processing  of  the 
procedures  at  a  given  nesting  level  (the  current  «itry  being  \ised 
Is  the  nesting  level). 

Output  Farameter  Used  by:  DBSIG 

Specifies  the  terminal  entry  In  the  CAT  table  of  the  expression 
processed. 

Output  Farasieter  Used  by:  DBSIG 

Specifies  the  error  exit  for  the  procedure. 

Item  Local  Used  by:  ANCBR 

Specifies  the  IL  table  entry  number  of  the  last  assigned  temporary 
storage. 

Item  Express  Used  by:  ANGER 

Specifies  the  CAT  table  entry  currently  being  examined  In  the 
'level  analysis'  lAiase  of  ARCHR. 

Frocedure  Used  by:  ANCHR 

Ferforms  a  backyard  scan  thru  the  CAT  table  searching  for  the 
beginning  of  an  operand  to  be  entered  Into  the  IL. 

Procedure  Used  by:  ANCHR 

Formats  and  outputs  entries  from  the  CAT  teble. 

Item  Express  Used  by:  MF,  WORST 

FRTIL,  ANCHR 

Contains  the  DICT  entry  number  of  the  procedure  currently  being 
processed.  Contains  9OOO  If  the  main  program  Is  being  ^ocessed. 
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FREN 

PRI 

FRNT 

FROCN 

FRON 

PROS 

FRTHD 

PBTIL 

FRTQ 

FRTSR 


Itoii  Local  Used  by:  BD8V 

Indicates  vhen  the  left  pcurenthesis  of  a  beaded  variable  has  been 
encountered. 

1  «  left  parenthesis  encountered 
0  «  left  parenthesis  not  encountered 

Item  Local  Used  by:  SRCHR 

Indicates  whether  the  procedure  is  scanning  inside  or  outside  of 
a  parenthesized  expression. 

1  >  Inside  parenthesis 
0  B  outside  parenthesis 

Procedure  Used  by:  PRTIL,  FRTSR,  MP, 

PRTQ,  PPTCT,  WORST,  ERROR 

Outputs  the  item  IMAGZ  into  the  file  13BBUG. 

Item  Express  Used  by:  MP 

Contains  the  DICT  entry  nimiber  of  the  procediure  or  close 
cvurently  being  processed. 

Subscripted  item  from  table  PWS  Local  Used  by:  WORST 

Contains  the  DICT  entry  nusiber  of  the  procedure  or  MP  (9OOO) 

Just  processed. 

Subscripted  item  from  table  LWC  Local  Used  by:  WORST 

Contains  the  DICT  entry  number  of  the  procedure  or  MP  (9OOO) 

Just  being  processed  when  the  call  specified  in  CAWL  was  made. 


Procedure  Used  by:  MP,  WORST 

Outputs  a  foxmatted  heading  for  the  IL,  SBT  and  SRQ  tables  and  the 
starting  level  of  working  storage. 


Procedure 
Formats  into 


item  ntAOE  entries  from  the 


Used  by: 
IL  table. 


MP 


Procedure 

Fbimats  into  item  IMAQE  entries 


Used  by: 

from  the  DRQ  table. 


MP 


Procedure 

Formats  into  item  IMACEE  entries 


Used  by: 

from  the  SRT  table. 


MP 
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FBNS  Subscripted  item  from  table  WS  Local  Used  by:  WORST 

Specifies  the  total  amount  of  temporary  storage  req^iired  by  this 
procedure. 

PSRT  Subscripted  item  from  table  OOMHN  E^qpress  Used  by:  MP 

Indicates  vhAther  a  formatted  listing  of  the  SRT  table  entries  has 

been  requested  of  Qen2. 

PUTIN  Procedure  Used  by:  AHCHR 

Generates  IL  operand  entries  from  simple  operands  described  in  the 
CAT  table;  also  recognizes  complex  operands,  either  subscripted  or 
beaded  variables,  and  directs  proceduure  BD6V  to  enter  these  complex 
operands  Into  the  IL. 

PWS  Table  Contains  items:  PRON,  SLtfS,  PRHS 

Local  Used  by:  WORST 

Contains  information  about  the  amount  of  temporary  storage  and 
the  starting  level  of  temporary  storage  for  the  procedures  and  MP 
of  a  program. 
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Itea  Ss^ress  Used  by:  HP 

Indicates  vhether  an  IF  or  an  ORIF  statenent  is  being  processed. 

2  -  IF 

3  -  ORIF 
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RELAD  Input  Paraneter  Uaed  by:  XFIQPT 

Indicates  vhether  the  'anchor- point '  is  a  relatlcmal  or  a  logical 
operator . 

1  >  relational 
0  ■  logical 

RIGHT  Item  S:qpress  Used  by:  ABCHR,  LVLCP 

Specifies  the  CAT  table  entry  nuadber  of  the  'anchor  point'. 

RLOC  Input  PEurameter  Used  by:  ItUOC 

Specifies  the  starting  CAT  table  entry  for  the  scan. 

RLOC  Item  Local  Used  by:  LVLCP 

Specifies  the  CAT  table  entry  of  a  potential  'anchor  point'. 

RLOC  Item  Local  Used  by:  XERFT 

Specifies  the  CAT  table  entry  that  is  currently  being  examined 
by  XFRPT. 

RRGI  Subscripted  item  from  table  DICT  R^qpress  Used  by:  - 

If  CLAS  EQ  item,  subscripted  item  or  array: 

0  s  no  range  specified 
1  s  range  specified 

ROBT  Subscripted  item  from  table  DICT  E^qpress  Used  by:  - 

If  CLAS  EQ  item,  subscripted  item  or  array: 

0  s  round  variable 
1  =  truncate  variable 

RRLOC  Input  Parameter  Used  by:  XFRPT 

Specifies  the  CAT  table  entry  of  the  last  determined  'anchor  point'. 

RSLT  Item  E^qpress  Used  by:  ANCRR 

Specifies  the  CAT  table  entry  of  the  last  operator  entered  into  the 
Hi  and  vhere  the  last  temporary  storage  vras  assigned. 

RSLTI  Item  E^qpress  Used  by:  ANCHR,  PUTIN, 

BDSV 

Specifies  the  number  -•'1  of  operators  which  have  been  processed 
since  the  last  teiqnrary  storage  assignment. 
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RSRCH  Output  Parameter  Used  by:  SRCHR 

Indicates  whether  the  scan  vas  successful. 

0  ■  unsuccessful 

1  ■  successful 

2  ■  unsuccessful  and  that  the  scan  vas  terminated  by  a  or 

else  the  scan  vas  coanenced  from  vithin  the  procedure  call. 
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SAVI  ItoB  Express  Used  by:  AECSR,  SSFItO 

Indicates  vhen  an  ABS  aodlfler  has  been  encountered  in  a  subscript 
expression. 

1  -  ABS  encountered 
0  «  no  ABS  encountered 

SCSCI  Subscripted  item  from  table  SS  E^qpress  Used  by:  AHCSRi  SSFIK) 

Indicates  vhen  a  constant  has  been  encountered  in  a  subscript 
expression. 

1  »  found  constant 
0  «  not  found 

SEP  Svltch  Activated  In:  ARGHR 

Sensitive  to  the  form  (CATP)  of  an  entry  vlth  a  class  of  separator 
(CATC  EQ  9)« 

SEQS  Svltch  Activated  In:  MP 

Sensitive  to  the  form  (CATF)  of  an  entry  vlth  a  class  of  sequential 
operator  (CATC  EQ  8). 

SIND  Subscripted  Item  from  table  DICT  Express  Used  by:  MP,  ANCBR 

If  CLAS  EQ  file: 

0  =  Hollerith 
1  *  binary 

If  CLAS  EQ  procedure: 

0  «  non- function 
1  =  function 

If  CLAS  EQ  constant: 

0  s  Is  not  Initial  data 
1  =  Is  Initial  data 

If  CLAS  EQ  table,  item  svbscripted  Item  or  array: 

0  s  no  InltleC.  data 
1  =  variable  has  initial  data 

If  CLAS  EQ  statement  label  or  close: 

0  a  the  label/close  vas  used  after  its  declaration  (at  least 
one  backvard  transfer)  or  else  It  vas  used  In  a  svithh 
1  s  label/close  vas  alvays  used  before  Its  declaration  (no 
backvard  transfer) 
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SIZE  Subscripted  Item  from  table  SICT  Express  Used  by:  - 

If  CLAS  EQ  table  and  PACK  BQ  1: 

Specifies  the  nustber  of  cards  per  entry. 

If  ClAS  EQ  Item,  subscripted  Item  or  array: 

(1)  TIPV  EQ  H,  T: 

Specifies  the  nuiri>er  of  bytes 

(2)  TXPV  EQ  A,  D,  I,  S,  K: 

Specifies  the  nusiber  of  bits  (including  the  sign  bit) 

If  CLAS  EQ  file: 

Specifies  the  maximum  nuaiber  of  records 

If  CLAS  EQ  constant  and  SIND  EQ  1  and  the  nearest  non-constant 
preceding  entry  is  an  array: 

Specifies  the  index  to  the  assigned  column  (relative  to  O) 
for  this  constant  set. 

SLPI  Subscrljited  item  from  table  SS  Ejgpress  Used  by:  AHCHR,  SSFIK) 

This  item  indicates  vhen  the  left  parenthesis  following  an  ABS 
modifier  has  been  encountered  in  a  subscript  expression. 

1  a  found  left  parenthesis 
0  =  not  foxmd 

SUfS  Subscripted  item  from  table  FtfS  Local  Used  by:  WORST 

Specifies  the  starting  level  of  temporary  stc  ige  necessary  for 
this  procedure. 

SFMI  Subscripted  item  from  table  SS  Express  Used  by:  ANCHR,  SSPRO 

Indicates  vhen  a  or  -  has  been  encountered  in  a  subscript 
expression. 

1  =  found  +  or  - 
0  =  not  found 

SPNIL  Item  Express  Used  by:  MP 

Contains  the  starting  IL  entry  number  of  a  block  of  IL  to  be 
formatted  and  output. 

SRGHL  Procedure  Used  by:  ANCSR 

Perfozms  a  backward  scan  thru  a  statement  searching  for  a  logical 
operator  or  an  IF,  IFEITH,  or  an  ORIF  sequential  operator. 

Procedure  Used  by:  ANCHR 

Forms  a  forward  scan  thru  a  statement  or  phase  searching  for  a 
logical  operator. 


SRCHR 
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SRPI  Subscripted  item  from  table  SS  Express  Used  by:  ANCSR,  SSPRO 

Indicates  when  the  rif^t  parenthesis  from  an  absolute  value 
expression  has  been  encountered  in  a  subscript  e^qpression. 

1  -  found  ric^t  parenthesis 
0  >  not  found 

SRT  Table  Contains  items:  SRI/V,  SRXB,  SRTC,  SRTD,  SRTE,  3RTF,  SRIO, 

SRTI,  SRTH,  SRTS 

Express  Used  by:  MP,  FACT 

Contains  Information  about  each  FOR  statement  used  In  the  program. 

SRTA  S\jbscripted  Item  from  table  SRT  Express  Used  by:  MP 

Indicates  if  the  entry  describes  at  least  a  2-factor  FOR  statement 
(incliidlng  FOR  ALL  type). 

1  *  2-factor  or  S-factor  FOR 
0  =  1- factor  FOR 

SRTB  Subscripted  Item  from  table  SRT  Express  Used  by:  MP 

Specifies  the  first  IL  entry  number  within  the  raz:ge  of  the  FOR 
statement  (specifies  the  first  operator  entry  following  the  LOU 
(ILO  EQ  23)  operator). 

SRTC  Subscripted  item  from  table  SRT  Express  Used  by:  MP 

Specifies  the  last  IL  entry  nusiber  in  the  reuige  of  the  FOR 
statement  (the  entry  number  of  the  entry  weceding  the  first  operator 
entry  following  the  TST  (ILO  EQ  2$)  entry). 

SRTD  Subscripted  item  from  table  SRT  Express  Used  by:  MP,  FACT 

Specifies  the  subscript  (number)  of  the  subscript  activated  by 
the  FOR  statement  (  1  <  x  <  26). 

SRTE  Subscripted  variable  from  table  SRT  Express  Used  by:  MP 

Contains  a  count  of  the  level  of  nesting  of  FOR  statements  at  the 
time  the  FOR  statement  was  encountered. 

SRTF  Subscripted  variable  from  table  SRT  Express  Used  by:  MP 

Contains  the  generated  label  to  identify  the  INC  or  TST  IL 
operator  if  a  TEST  statement  has  been  used  in  the  range  of  the 
FOR  statement. 
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SRIG  Subscripted  Item  from  table  SRT  Esqpress  Used  by:  NP 

Indicates  If  the  FOR  statement  required  a  non-diamy  TST 
ILO  BQ  25)  entry. 

1  -  non-dummy  TST 
0  «  dummy  TST 

SRIH  Subscripted  Item  from  table  SRT  E:qpress  Used  by:  MP 

Specifies  the  nutnber  of  IL  entries  required  to  hold  the  2nd  factor 
of  a  FOR  statement  (the  INC  portion). 

SRTI  Subscripted  Item  from  table  SRT  Express  Used  by:  MP 

Specifies  the  nundier  of  IL  entries  required  to  hold  the  3rd  factor 
of  a  FOR  statement  (the  TST  portion). 

SRTS  Subscripted  Item  from  table  SRT  Express  Used  by:  MP 

Indicates  whether  the  subscript  was  used  as  a  subscript  or  as  a  counter. 

1  s  subscript 
0  a  counter 

SS  Table  Express  Used  by:  AHCBR,  SSPRO 

This  Is  a  table  used  In  a  push-down  manner  which  contains  Information 
necessary  for  the  analysis  of  standard  subscript  compressions. 

SSPRO  Procedxire  Used  by:  ANCHR 

Recognizes  standard  subscript  expressions  In  statements. 

SSVI  Subscripted  Item  from  table  SS  Express  Used  by:  ANCHR,  SSPRO 

Indicates  when  a  subscripted  variable,  simple  variable  or  subscript 
has  been  encountered  In  a  subscript  expression. 

1  a  found  subscripted  variable,  simple  variable  or  sxibscrlpt 
0  a  not  found 

STDI  Item  Local  Used  by:  NAGHR 

Indicates  whether  a  subscript  expression  of  standard  form  has 
been  encountered. 

1  a  subscript  expression  of  standard  form 
0  a  subscript  expression  of  non-standard  form 

STDI  Output  Parameter  Used  by:  SSPRO 

Indicates  whether  the  compression  analyzed  was  of  standard  form. 

1  a  standard  form 
0  a  non-standard  form 
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STIB 

Item 

Esqpress  Used  by: 

FRTIL 

Contains 

the  names  of  the  IL  modifier  (ILB). 

STIC 

Item 

B:^ess  Used  by: 

FRTIL 

Contains 

the  names  of  the  "forms"  of  IL  entries  (ILC). 

STID 

Item 

Esqporess  Used  by: 

FRTIL 

Contains 

the  names  of  the  "codes"  in  IL  entries  (ILD). 

STIH 

Item 

ED^ess  Used  by: 

FRTIL 

Contains 

the  names  of  the  IL  bead  type  (II£). 

sno 

Item 

Express  Used  by: 

FRTIL 

Contains 

the  names  of  the  IL  operators  (ILO). 

STLE 

Procedure  Used  by: 

MF,  ISSIGj 

AHCHR 

,  Generates  a  label  IL  operator  entry  (ILO  «  16). 

STMC  Item  Esqpress  Used  by:  NP,  SfSQ 

Contains  a  count  of  the  number  of  statements  (not  including 
declarations)  processed. 

STOP'IFG  Subscripted  item  from  table  COMMTN  E:qpress  Used  by:  - 

Indicates  whether  the  cooqpilation  process  is  to  stop  if  errors 
are  discovered  by  the  generator. 

STOP'IFT  Subscripted  item  from  table  COMMTN  Express  Used  by:  - 

Indicates  whether  the  compilaticn  process  is  to  stop  if  errors 
are  discovered  by  the  tremslator. 

STPC  Item  Express  Used  by:  MP,  INSQ 

A  push-down  type  item  used  to  count  BEGINS,  START  and  ENDs,  TERM 
(begins  and  START  Increase  it  by  1,  ENDs  and  TERM  decrease  it  by  l). 

STQA  Item  Express  Used  by:  FRTQ 

Contains  the  names  of  the  values  of  DRQA. 

STSD  Item  Express  Used  by:  FRTIL 

Contains  the  names  of  the  subscripts. 

I 


i 
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STXFE 

SUBUI 

SUBV 

Stf 

SHI 


Subscripted  item  from  table  SS  Express  Used  by:  AECSR,  SSFBO 

Specifies  the  type  of  stibscrlpt  e^qpression  being  analyzed. 

0  ■  arithmetic 

1  ■  bead 

2  ■  subscripted  variable 

Subscripted  Item  from  table  ACTS  Express  Used  by:  Iff,  AEC8R, 

SSFEO,  BSSV 

Indicates  bov  the  subscript  was  used. 

1  >■  iised  as  a  subscript  (in  a  subscript  expression  of 
standard  form)  at  least  once 
0  «  never  used  as  a  subscript 


Item  Local  Used  by:  BS6V 

Indicates  vhether  the  BS6V  Is  processing  vlthln  the  parenthesis 
of  a  beaded  variable. 

1  operating  vlthln  the  parenthesis 
0  «  not  operating  vlthln  the  parenthesis 

3vltch  Activated  In:  OESIO 

Sensitive  to  the  DICT  class  (QASS)  of  a  svltch  point. 

Svitch  Activated  In:  UESIO 

Sensitive  to  the  DICT  class  (CLASS)  of  a  QOTO  stateswnt. 


10  July  1962 


177 


lM-555/020/00 


T1  Item  Local  Used  by:  UIOIH 

Push'dovn  type  item  used  to  count  bracketers  (stepped  by  left 
bracketers,  decremented  by  rl^^t  bracketers). 

^  Item  E:qpress  Used  by:  MP 

Specifies  the  number  of  IL  entries  required  to  contain  the  2nd  and 
3rd  factor  of  a  FOR  statement. 


T2 

Item 

E:q>ress 

Used  by: 

NP,  DBSIG 

Contents  depends  on  use. 

T3 

Item 

Express 

Used  by: 

MP 

Contents  depends  on  use. 

T3 

Item 

Local 

Used  by: 

FACT 

Push-down  type  item  used  to  count  bracketers  (stepped 
bracketers,  decremented  by  rlc^t  bracketers). 

by  left 

Tl^ 

Item 

Local 

Used  by: 

MP 

Specifies  the  number  of  CAT  table 
a  switch  declaration  from  the  next 

entries  separating  the  conaas  in 
>  switch  point. 

1  s  numeric  switch 

3  =  item  switch 

T5 

Item 

ExpreBB 

Used  by: 

MP 

Contents  depends  on  use. 

TO 

Input  Parameter 

Used  by: 

BOLLS 

Specifies  the  characters  to  be  converted. 

TFBM 

Sidiscrlpted  Item  from  table  DICT 

If  CLAS  £Q  table: 

Express 

Used  by: 

- 

0  =  null 

1  >  parallel  table 

2  «  serial  table 

TRAN'ERR 

Subscripted  Item  from  table  CXMfIN  Express 

Used  by: 

- 

Indicates  whether  errors  were  discovered  In  the  object  program  by 
the  translator. 
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TBBGN 


TS8 

TIP 


TYPV 


Subscripted  item  from  table  IIECT  Express  Used  by:  WORST 
If  dAB  EQ  procedure: 

Specifies  the  starting  level  of  internal  tea^rary  storage 
required  by  the  procedure. 


Item  Local  Used  by:  SSFSO 

Meaning  depends  on  use. 

Item  E^qpress  Used  by:  W,  AXCHR, 

»RFT 

Contains  the  generated  label  nuaber  of  the  'true  transfer  point' 
of  a  relational  statement. 

Subscripted  item  from  table  DICT  E^qpress  Used  by:  AECHR 


Specifies  the  type  of  constant >  item,  subscripted  item  or  array. 


0  »  Hull 

1  ■  Fixed  Point  (A) 

2  >  Boolean  (B) 

3  «  Dual  Fixed  Point  (D) 
k  B  Floating  Point  (f) 

5  =  Hollerith  (h) 

6  =  Integer  (l) 


7  «  Status  (3) 

8  -  Octal  (0) 

9  »  STC  (T) 

10  >  Dual  Integer 
U  -  Dual  Octal  (Q) 
12  «  (Error) 
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WONT  Item  Local  Used  by:  WORST 

Contains  the  'running*  level  of  working  storage  reqiilred  by  the 
procedxires  processed. 

WHERE  Item  Local  Used  by:  AHCBR 

Indicates  whether  a  Boolean  operand  requires  a  level. 

1  «  requires  a  level 
0  ■  no  level  required 

WORST  Procedure  Used  by:  MP,  AHCHR 

Optimizes  the  amount  of  tenporeury  storage  required  by  the 
procedures  of  a  program. 
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XFRFT 

Procedure 

Used  by: 

AMCHR 

Detemlnes  the  linkage  (via  transfer  points)  necessary  In  eoqpres 
slons  Involving  relational  and  logical  operators  and  adjusts  010 
operators  and  generates  labels  to  effect  the  necessary  linkage. 

m 

Output  Parameter 

Specifies  the  error  exit  for  the  procedure. 

Used  by: 

AHCBR 

m 

Output  Parameter 

Specifies  the  error  exit  for  the  procedure. 

Used  by: 

PUTIH 

m 

Output  Parasteter 

Used  by: 

SRCHL 

Specifies  the  alternate  exit  for  the  procedure. 

m 

Output  Parameter 

Specifies  the  error  exit  for  the  procedure. 

Used  by: 

SRCHR 

XXX 

Output  Parameter 

Specifies  the  error  exit  for  the  procedure. 

Used  by: 

SIBPT 
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C.  BBSCRlPnON  OF  THE  GES2  MAIN  PIKXSiMf  (MP)  REGIONS 


INTROIVCTION 

The  main  body  of  Gen  2  Is  composed  of  regions,  each  of  which  is  identified 
with  a  particular  statenent  type.  The  type  of  a  stateaent  is  deterained  froa 
the  class  (CATC)  of  the  first  entry  in  the  CAT  table  describing  the  stateaent. 
(This  analysis  is  accomplished  by  activating  the  switch  CIAS8.)  Some  classes 
are  further  broken  down  by  their  form  (CATF).  (This,  too,  is  accomplished  via 
switches,  SBQS  and  BRAKS.)  The  regions  of  the  program  are  labeled  according 
to  the  class  and  perhaps  the  form  of  the  statement  type  with  which  they  are 
associated.  Thus,  the  'LOl'  region  processes  statement  labels  (class  of  l); 
the  *L08  *  region  is  associated  with  sequential  operators  (class  of  8)  which 

are  further  broken  down  by  forms:  Ij080  pertaining  to  IF  stateawnts  (form  of 
0),  LO8I  pertaining  th  IFEITH  statements  (form  of  l)  and  I1O82  pertaining  to 
ORIF  statements  (form  of  2).  Ihe  delayed- processing  mentioned  above,  is  per¬ 
formed  in  the  end-of- statement,  END6T,  region,  nils  region  is  entered  follow¬ 
ing  the  processing  of  each  statement  to  determine  if  delayed-processlng  is 
needed  and  to  perform  it  if  required.  (Statements  containing  errors  enter 
this  region  via  an  alternate  path  irtiich  first  locates  the  end  ($)  of  the 
statement.)  The  actual  delayed- processing  region  is  broken  into  sva}-regions 
according  to  the  types  of  delayed-processlng.  Thus,  the  LNO  region  is  asso¬ 
ciated  with  a  DRV  entry  of  type  0  (FOR),  LNl  with  a  ntQ  entry  type  1  (procedure 
and  close)  etc. 
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1.  a.  Name  -  LOO 

b.  Description  -  CAT  table  entries  to  be  processed  are  Input  In  this  region, 
d.  Operations  - 

1.  Input  CAT  table  entries. 

2.  Delay  until  the  input  operation  is  coaplete. 

3.  If  no  entries  could  be  input  (end-of-fUe  on  input  tape). 

1.  Set  DOHE  >  1  to  indicate  finished  processing  (at  LIOTA). 

2.  Exit  to  output  the  IL  (to  HRIL). 

U.  Exit  to  analyse  the  type  of  statesients  to  be  processed  (to  KIXTl). 

2.  a.  Kane  - 

b.  Description  -  Bnptles  the  tenporary  push-down  queue  when  it  is  full, 
detemlnes  the  type  of  statesient  to  be  processed  and  directs  the 
processing  thereof . 

d .  Operations 

1.  Set  L0C»NIL»-1  to  remenber  the  beginning  IL  entry  for  the  next 
statement . 

(HEXT)  2.  Increment  CAT  table  control  subscript  to  specify  the  first  entry 

of  the  next  statement  (C^C-i'l). 

3.  If  the  temporeu^  push-down  queue  is  not  empty  and  the  next  entry 
in  the  CAT  table  does  not  describe  an  END  (see  description  of 
I»q  table,  DKIKQ  and  INSQ) . 

1.  Transfer  the  entries  from  the  temporary  push-down  queue  into 
the  IRQ  table. 

2.  If  the  last  entry  in  the  IRQ  table  is  associated  with  a  pro¬ 
cedure  (niQA  EQ  1) 

1.  Set  FL0C«N13RQ  to  remember  the  entry. 

4.  Activate  the  switch  CLASS  to  analyse  the  type  of  statement  to  be 
processed  and  to  direct  the  processing  thereof. 

3.  a.  Name  -  LOl 

b.  Description  -  This  region  generates  a  label  IL  operator  entry  for  a 
statement  label . 

c.  Procedures  called  -  STLE  I 

d.  Operations  -  ^ 

1.  Enter  the  statement  label  into  the  IL  table  using  procedure  STLE.  ^ 


I 


1 
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3>  d.  2.  Reset  the  Item  IfLUS  (  a  new  count  is  started  with  each  new  label). 

3.  Set  item  LNMMS  to  specify  the  DICT  entry  nuniber  of  the  label  Just 
encountered  (CATF). 

Ixit  (since  a  label  is  encountered  only  at  the  beginning  of  state- 
laentSj  this  region  exits  to  a  point  at  the  end  of  the  end-of-state- 
■ent)  (to  END  2). 

4.  a.  Nbise  -  L02 

b.  Descriptioi  -  Assignaent  statenents  and  procedure  call  statewnts  are 
processed  in  this  region. 

c.  Procedure  called  -  ANCHR>  ERROR 

d.  Operations  - 

1.  Set  the  boundary  entries  in  the  CAT  table  of  the  stateaent  for 
ANCHR  (IA8T  aM  FIRST) . 

2.  Set  FTP  »  0  (to  be  later  used  as  a  test  for  an  illegal  operator) 

3.  Process  the  stateaent  using  ANCHR. 

4.  If  a  relational  operator  vas  encountered  by  ANCHR  (FEP  NO  0) 

1.  Output  error  message  #l4 

2.  Exit  to  locate  the  end  of  the  stateaent 

If  the  stateaent  processed  vas  a  Boolean  assignaent  stateaent  (BF  NO  0) 

1.  Generate  IL  inforaation  entries  specifying  B7  as  both  boundaries 
(for  possible  optimizing  of  the  GOTO  inserted  by  ANCHR) 

6.  If  not  processing  the  main  pcurb  of  a  program  (PRCD  NO  9000) 

1.  If  the  stateaent  processed  vas  an  assignaent  or  exchange 
statement  (ILO  BO  21,22) 

1.  If  the  first  operand  of  the  IL  assignaent  or  exchange 
statement  vas  an  express  item  (dEFN  BO  1) 

1.  Set  FDAT  to  0  (indicating  that  an  express  item  vas 
set  in  a  procedure) 

2.  If  the  second  operand  of  the  IL  exchange  stateaent  vas  an 
express  item  (DEFN  BO  l) 

1.  Set  FDAT  to  0  (indicating  that  an  express  item  vas 
set  in  a  procedure) 


7.  Exit 
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a.  Hmm  -  IRR 

b.  Description  -  This  region  outputs  an  error  message  for  statements 
commencing  with  iU^al  parts  of  speech* 

c*  Procedures  called  -  HBIOR 

d.  Operations  - 

1.  Output  error  message  #1 

2.  Ixlt  to  find  the  end  of  the  statement 

6.  a.  Hame  -  LO83 

b.  Description  -  0010  statements  are  processed  in  this  region. 

c.  Procedures  called  -  ORM,  UKm,  DR8I0 

d.  Operations  > 

1.  If  the  statement  Is  erroneous^  print  error  message  and  then  exit. 

2.  Set  SIND  of  the  label  associated  with  the  0010  to  0  Indicating  a 
potential  backward  transfer  Is  being  made  to  the  label  by  the 
OOTO  (if  SIND  Is  still  set  at  the  end  of  the  program,  the  last 
traxisfer  to  the  label  was  a  backward  transfer) 

3«  If  a  procedure  Is  being  processed  (PRCD  N9  9OOO)  and  the  associated 
label  Is  an  express  statement  label  (DBFN  >  0,  ClAS  *  1} 

1.  Set  PDAT  <■  ^  meaning  esqpress  label  transferred  to  from  within 
a  procedure 

k.  If  the  associated  label  Is  a  statement  or  program  label  (CIAS  BQ  1 
or  12) 

1.  Attempt  to  optimize  away  the  0010  with  procedure  OPIM 
1 .  If  successful 

1.  Skip  the  OOTO 

2.  Exit 

If  the  associated  label  Identifies  a  switch  which  Is  subscripted 

1.  Determine  the  length  of  the  esqpresslon  using  procedure  LNOTH 
(saving  the  length  In  the  CAT  table  (CATP)) 

6.  Process  the  OOTO  using  procedure  DBSIO 

7  •  Exit 
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7.  a.  Hrae  -  LO8I 

b.  Description  -  IFSITH  statements  are  processed  in  this  region. 

c.  Procedures  called  -  mSQ 

d.  Operations  - 

1.  Nske  an  entry  in  the  I3RQ  table  using  IXSQ  so  that  the  delayed- 
processing  required  by  the  IPKlffl  will  be  pex^oxmed 

2.  Generate  a  label  to  identify  the  bottos  of  the  IPEITH  statement 
(imx  -  GLAB) 

3.  Consider  the  'IPBlOt'  as  a  'BEGIN'  thereby  stepping  the  statement 
parenthesis  counter  (STPC) 

4.  Continue  as  if  the  entry  were  an  ORIF  (LO62) 

8.  a.  Name  -  LO82 

b.  Description  -  ORIF  statements  are  processed  in  this  region, 
d.  Operations  - 

1.  If  the  statement  has  the  structure  ORIF  1 

1.  Eliminate  the  statement 

2.  Exit 

2.  Set  item  QA  to  3  (indicating  ORIF) 

3.  Proceed  as  if  an  IF  statement  (except  for  the  setting  of  QA)  (LO80) 

9.  a.  Name  -  LOSO 

b.  Description  -  IF  statements  are  processed  in  this  region. 

c.  Procedures  called  -  ANCHR,  ERROR,  STLE,  IFO 

d.  Operations  - 

1.  Set  item  QA  to  2  (indicating  IF) 

2.  Set  the  boundary  entries  in  the  CAT  table  of  the  statement  for 
ANCHR  (LAST  and  FIRST) 

3.  Clear  FTP  (to  be  later  used  as  a  test  for  an  illegal  operator) 

4.  Process  the  statement  using  ANCHR 

5.  If  an  '='  operator  was  encountered  by  ANCHR(FTP  EQ  O) 

1.  Output  error  message  #15 

2.  Exit  to  locate  the  end  of  the  statement 
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9>  d.  6.  If  the  statenent  contained  'OR's  (TTP  HQ  O) 

1.  Alter  the  true  transfer  point  label  for  the  stateaent  in  the 
IL  using  STLE 

2.  Generate  infoiaation  entries  associated  vith  the  label  using 
procedure  170  vith  it  obtaining  its  information  frcm  the 
tesqporary  push-down  queue. 


3.  Set  the  lover  infomation  boundary  to  the  last  entry  of  the  IL 
entry  used  (ILI  -  NIL) 

7.  Make  an  entry  in  the  ntQ  table  (so  that  the  delayed- processing 
required  by  the  statement  will  be  performed) 

8.  Exit 


10.  a.  Name  -  L084 

b.  Description  -  FOR  statesients  are  processed  in  this  region. 

c.  Procedure  called  -  FACT,  LNGTH,  ERROR,  INSQ 

d.  Operations  - 

1.  General  Philosophy  - 


The  type  of  FOR  statement  being  processed  is  determined  from  con¬ 
text.  Depending  on  the  type  of  'FOR*  statement  and  its  use  or 
non-use  in  a  parallel  FOR  amnner,  the  program  recognizes  which  of 
the  IL  operators  (LOD,  INC,  TST)  are  required  by  the  statesient. 

For  simple  'FOR'  statements,  FOR  I  »  VAR  $,  LOD  and  dvnmiy  TST 
operators  are  required.  For  2-factor  'FOR'  statements,  FOR  I  ■  VAR, 
VAR,  VAR  $,  or  FOR  ALL  statements,  FOR  I  -  ALL  (TAB)  $,  LOD,  INC, 
and  TST  operators  are  required.  The  factor  itself  is  analyzed  by 
procedure  FACT.  In  the  event  that  a  factor  contains  a  complex 
arithmetic  expression,  FACT  directs  ANCHR  to  process  the  eiqpression. 
If  the  factor  is  simple,  OPND  is  used  to  put  the  factor  into  IL. 

In  either  case  FACT  adds  the  appropriate  FOR  operator  (l/)D,  INC, 

TST)  to  the  IL  eiqpression.  If  parallel  FOR  statements  are  encoun¬ 
tered,  it  is  necessary  to  determine  which  is  the  controlling  FOR 
statement  of  the  group  (the  first  FOR  ALL  statement  or  the  first 
statement  containing  2  or  3  factors). 

The  entire  FOR  statement  is  expended  into  IL  at  the  same  time. 
However,  it  is  necessary  that  the  INC  and  TST  eiqpresslons  eventually 
be  relocated  at  the  bottom  of  the  loop  (after  the  statement  suc¬ 
ceeding  the  FOR  statenent  or  the  last  FOR  statement  in  a  parallel 
group).  The  relocation  takes  place  as  the  delayed- processing  of 
a  FOR  statement.  At  this  time  all  of  the  entries  associated  vith 
the  INC  and  TST  are  moved  to  the  bottom  of  the  loop  and  their 
original  locations  are  cleared.  (Also,  at  this  time,  the  subscript 
is  deactivated  and  the  label  identifying  the  top  of  the  loop  is 
entered  into  the  IL  after  the  LOD). 
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More  Infomiatlon  Is  required  by  the  Translators  for  FOR  statenents 
than  can  be  contained  in  the  IL  entries.  Included  in  this  category 
is  information  like  the  number  of  IL  entries  required  to  hold  the 
IRC  and  TST  esqpressions,  the  first  and  last  IL  entry  in  the  range 
of  the  FOR  statement  and  the  nesting  level  of  FOR  statements.  As 
FOR  statements  are  processed  this  infoimation  is  accumulated  in 
entries  of  the  SRT  table  (one  entry  is  associated  with  each  FOR 
statement)  and  this  table  is  passed  along  to  the  Translators  with 
the  IL  table. 

10.  d.  2.  General  Operations  - 

1.  If  the  subscript  referenced  in  the  FOR  statement  is  already 
active  (ACTSS  EQ  l) 

1.  Output  error  ^ 

2.  Exit  to  locate  the  end  of  the  statement 

2.  If  the  type  of  FOR  statement  is  of  the  FOR  ALL  variety  (CATB  EQ  7) 
1.  Set  BOOL  »  1 

3.  Use  procedure  PACT  to  analyze  and  expand  the  first  factor  (the 
LOD  esqpression) 

4.  Activate  the  subscript  (ACTSS  »  l) 

If  the  statement  has  2  factors  (BOOLl  EQ  1  meaning  FACT  found 
a  comma  as  the  delimiter  of  the  factor)  or  is  a  FOR  ALL 
(BOOL  EQ  1) 

1.  Use  procedure  FACT  to  analyze  and  expand  the  second  factor 
(the  INC  e:q?resslon) 

6.  If  the  statement  is  in  a  group  of  parallel  FOR  statements,  i.e. , 
the  last  entzy  in  the  IRQ  table  describes  a  FOR  statesient 
(DRQfl  EQ  0)  and  there  have  been  no  intervening  statements  (sim¬ 
ple  or  compound)  (12RQ<V  EQ  STPC  and  DRQC  +  1  EQ  SIMC) 

1.  Update  the  entry  in  the  DRQ  table  to  reflect  the  new  FOR 
(set  DRQC  =  STNC,  step  FOR  counter  DRQE) 

2.  If  this  is  not  the  controlling  FOR  statement  of  the  noup 
(ORQF  EQ  1)  and  it  does  have  a  3rd  factor  (SRTA  EQ  l) 

1.  Ignore  the  3rd  factor  (skip  it  using  LNGTH) 

3-  If  it  is  the  controlling  'FOR* 

1.  Proceed  at  d.2.6.1 

7.  If  the  statement  is  not  in  a  parallel  group 

1.  Make  an  entry  in  the  IRQ  table  (to  effect  the  delayed- 
processlng  required) 


10  July  1962 


188 


TM-555/020/00 


I 


10.  d.  2.  8.  If  the  statement  has  a  factor  (SRIA  EQ  l) 

1.  Use  procedure  FACT  to  analyze  and  expand  the  factor  (the 
T8I  expression) 

2.  Set  SRTO  to  1  (non-dumay  T8T  Inserted) 

3.  If  FACT  terminated  on  a  cosmia  (B00I<3  EQ  l) 

1.  Output  error  #3 

9.  If  the  statement  requires  a  "dummy  T3T"  (a  1> factor  or  a  non¬ 
controlling  2-  or  3-factor  FOR) 

1.  Set  up  a  'dummy  TST'  in  IL  (contains  an  operand  entry 
specifying  DICT  entry  0  and  ILY  set  to  l) 

10.  If  a  label  is  required  to  identify  the  top  of  the  loop  (necessaxy 
'  for  2-  or  3-factor  FOR  (BOOLl  EQ  1  and  NQ  l)) 

1.  Generate  a  label  (OLAB  a  GLAB+l) 

2.  Save  the  label  for  the  delayed-processing 

1.  If  the  FOR  is  non- parallel  save  the  label  in  IRQl[DnDRQ3 

2.  If  the  FOR  is  parallel,  save  the  label  in  IBQICdiIRQO 

3.  Set  niQF  a  1  (indicates  controlling  FOR) 

U.  Set  the  label  into  the  transfer  point  of  the  TST  operator 
(ILE  a  GLAB) 

11.  Set  SRTE  to  the  current  nesting  level  (SRTE  »  NEST) 

12.  Exit 

3.  Error  return  from  procedure  FACT 

1.  Deactivate  the  subscript  (ACTSS  >0) 

2.  Output  error  message  #l8 

3.  Exit  to  locate  the  end  of  the  statement 

11.  a.  Name  -  I1O86 

b.  Description  -  STOP  statements  are  processed  in  this  region, 
d.  Operations  - 

1.  Generate  an  IL  stop  (ILO  »  20)  entry 

2.  If  there  is  a  label  Included  in  the  STOP  statement 
1.  Put  the  label  into  ILF 


3.  Exit 
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12.  a.  Name  -  LO85 

b.  Descripticm  -  REIUBN  atatementa  are  proceaaed  in  tbla  region. 

c.  Procedurea  called  -  OPTM 

d.  Operatlona  - 

1.  If  it  la  poaalble  to  eliminate  the  RKTOBM  \ialng  procedure  OPTM 

1.  Exit 

2.  Generate  an  IL  GOTO  (ILO  -  15)  entry  with  an  operand  deacrlblng 
the  teimlnatlng  label  of  the  procedure  or  cloae  currently  being 
proceaaed  (the  label  vaa  aaved  In  IRQI  at  the  entry  apeclfled 
In  PLOC) 

3.  Exit 

13.  a.  Name  -  LO87 

b.  Deacrlptlon  >  the  TEST  atatement  la  proceaaed  in  thla  region. 

c.  Procedurea  called  -  OPTM,  ERROR 

d.  Operatlona  • 

1.  If  there  la  a  a\d>acrlpt  Included  in  the  atatement  (example:  TEST  Q  $) 
1.  Set  B1  »  1 

2.  If  the  atatement  la  not  in  the  range  of  any  FOR  atatement  (NIHQ  EQ  0, 
meaning  no  prevloua  atateawnta  require  delayed-proceaalng  and  there¬ 
fore,  in  particular,  no  FOR  statements) 

1.  Output  error  #5 

2.  Exit  to  locate  the  end  of  the  statement. 

3.  Scan  the  RRQ  table  for  entries  describing  FOR  stateronts  (HIQH  EQ  O) 
1.  If  a  FOR  entry  is  encountered 

1.  Set  B2  =  1  (meaning  the. TEST  statement  is  in  the  range  of 
some  FOR  statement) 

2 .  Scan  the  entries  of  the  SRT  table  referenced  in  the  DRQ 
entry  (CRQJ)  specifies  entry  number,  RRQE!  specifies  nuniber 
of  entries) 

3.  If  an  entry  is  encountered  referencing  at  least  a  two-factor 
FOR  atatement  (SRTA  EQ  1  or  SRTH  NQ  0) 

1.  If  a  directed  TEST  is  being  processed  (B1  EQ  l) 

1.  If  the  subscript  referenced  in  the  TEST  does  not 
match  the  subscript  referenced  in  the  SRT  entry 

1.  Continue  the  scan  d.3*l>2 
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13.  d.  3.  1.  3.  2.  If  the  SRI  entry  does  not  Include  a  transfer  point  for 

a  TEST  transfer  (SRTF  EQ  O) 

1.  Generate  a  label  and  put  it  into  the  SRI  entry  (SRTF) 


3.  If  It  Is  possible  to  eliminate  the  TEST  using  procedure 
OFEM 

1.  Exit  to  locate  the  end  of  the  statement 

4.  Generate  an  IL  GOTO  entry  (ILO  -  I9)  specifying  In  the 
operand  entry  the  TEST  transfer  label  (SRTF) 

3.  Exit  to  locate  the  end  of  the  statement 

4.  If  this  Is  a  directed  TEST  and  Its  subscript  matches  that 
referenced  In  the  SET  entry 

1.  Output  error  #6  (TESTlng  single  factor  FOR) 

2.  Exit  to  locate  the  end  of  the  statement 

4.  At  this  point  no  adequate  FOR  statement  was  found.  If  at  least  one 
DRQ  FOR  entry  was  encountered  (B2  EQ  l) 

1.  If  a  directed  TEST  vas  being  processed 

1.  Output  error 

2.  Exit  to  locate  the  end  of  the  statement 

2.  Output  error  #7 

3.  Exit  to  locate  the  end  of  the  statement 

Output  error  (TEST  used  outside  range  of  a  FOR  statement) 

6.  Exit  to  locate  the  end  of  the  statement 


l4.  a.  Name  -  Ij09 

b.  Description  -  Separators  (CATC  EQ  9)  are  processed  In  this  region. 

c.  Procedures  called  -  ERROR 

d.  Operations  - 

1.  If  the  separator  is  not  a  dollar  sign  (CATP  EQ  4) 

1.  Output  error  #13 

2.  Exit  to  locate  a  dollar  sign 
Exit 


2. 
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13<  a.  Name  -  LlOO 

b.  Description  -  Statements  coonenclng  with  Illegal  braeketers  are  processed 
in  this  region. 

c.  Procedures  called  -  ERROR 

d.  Operations  - 

1.  Output  error  01 

2.  Exit  to  locate  the  end  of  the  statement 
16.  a.  Ndme  -  L104 

b.  Description  -  Bracketer  HBOIN  Is  processed  In  this  region, 
d.  Operations  - 

1.  Step  push>dovm  counter  SIPC 

2.  Exit  (do  not  do  delayed-processlng  after  this  bracketer) 

17*  a.  Name  -  LIO3 

b.  Description  -  Bracketer  END  is  processed  in  this  region. 

c.  Procedures  called  -  ERROR 

d.  Operations  - 

1.  Decrement  push-down  counter  STPC 

2.  If  push-down  counter  S!IPC  is  0  (meaning  too  many  ENDs  in  the 
program),  set  STPC  ■  1  and  output  error  17 . 

3*  Adjust  the  statement  parenthesis  count  in  the  teooporary  push-down 
queue  to  the  latest  value  of  the  statement  parenthesis  counter 
(DR^l]  *  STPC) . 

4.  Exit 

18.  a.  Former  name  -  I1IO6 

b.  inils  region  has  been  eliminated.  START  Is  Ignored.  All  Initialization 
Is  done  at  the  beginning  of  the  phase 
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19.  a.  Nane  -  U07 

b.  Description  -  Braeketer  OBEM  Is  processed  In  this  region. 

c.  Procedures  called  -  ERROR 

d.  Operations  - 

1.  Decreoent  push-down  counter  81PC 

2.  If  push-down  counter  8IPC  Is  not  0  (too  aany  EBOINs  In  program) 

1.  Output  error  ^ 

3.  Generate  an  IL  term  entry  (ILO  ■  19) 

4.  If  a  label  Is  Included  In  the  statement 
1.  Add  the  label  to  the  term  IL  entry 

5.  Set  DORE  «  1 

6.  Exit  to  terminate  all  processing  (see  region  Ll4.d.3.1.6) 

20.  a.  Kame  -  Ll4 

b.  Description  -  Switch^  Procedure  and  Close  declarations  are.  processed 
In  this  region  as  veil  as  the  terminating  operations  performed  at  the 
end  of  the  program  (outputting  the  IL  and  BRT  tables,  etc.) 

c.  Procedures  called  -  DBSIG,  IDQTH,  PRTHD,  PRTIL,  PRTSR,  PRIQ,  BIQD, 

PRRT,  ERROR,  INSQ,  WORST 

d.  Operations  - 

1.  For  SWITCH  declarations  (CATF  B(1  O) 

1.  Gene;^  Philosophy  - 

Switch  declarations  are  processed  one  switch-point  mt  m  time . 
Switch-points  specifying  statement  or  coRipool  program  labels 
are  entered  directly  Into  the  IL  table  as  operands  of  the  switch. 
However,  for  each  switch-point  specifying  a  switch  or  close 
label,  It  Is  necessary  to  substitute  a  generated  label  and  to 
effect  the  actual  transfer  to  the  switch  or  close  as  if  the 
point  were  a  GOTO  statement  located  at  the  bottom  of  the  switch. 
Therefore,  It  Is  necessary  to  process  the  declarations  twice. 

The  first  time  the  non-switch  and  non-close  points  are  entered 
Into  the  IL  and  generated  labels  cure  substituted  for  the  switch 
and  close  points.  The  second  time  the  declaration  is  processed, 
only  the  switch  and  close-points  are  considered  and  they  are 
processed  like  GOTO  statements  located  after  the  declaration,  and 
Identified  by  their  appropriate  generated  label.  Because  there 
are  these  Internal  and  external  parts  of  a  switch.  It  Is  neces- 
'  sazy  that  the  boundaries  of  the  switch  be  marked  In  the  IL.  This 

Is  accoapllshed  by  repeating  the  IL  entry  containing  the  switch 
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name  at  the  top  and  at  the  bottom  of  the  svltch  (below  any  QOTO 
switch  entries  associated  with  the  declaration).  Example: 

JOVIAL:  SWITCH  SW  -  (SLAB^,  SLABg)  $ 

IL  :  SWN  SW 

SLAB^  (statement  label) 

GHtAB^  (generated  label) 

SLAB^  (statement  label) 

LBL  GLAB^ 

GOTO 

SW2  (switch  name) 

SWN  SW  (duplicate  of  top  of  switch) 

20.  d.  1.  2.  General  Operations  - 

1.  Generate  a  Switch  Name  IL  operator  entry  (ILO  «>  I7) 
including  the  name  of  the  switch 

2.  For  an  'item*  switch  declaration 

1.  Set  T3  *  2  to  Indicate  item  switch 

2.  Set  T4  s  3  to  Indicate  the  nuaiber  of  entries  to  be 
skipped  between  points 

3.  Continue  at  d.l.2.k 

3.  For  a  'numeric'  switch  declaration 

1.  Set  T3  »  1  (numeric  switch) 

2.  Set  Tk  «  1 

4.  Set  to  the  beglxming  CAT  table  entry  of  the  switch  (to 
be  used  to  Indicate  where  to  start  the  second  time  thru) 

Process  the  switch  points 

1.  If  the  constant  associated  with  a  point  fzxnn  a  numeric 
switch  is  negative 

1.  Set  MINUS  a  1 

2.  Process  the  point  using  procedwe  DESIO 

3.  If  the  proceuiugi^^t  complete  fo^  j:he  declaration 

"continue  cJ.  /<  S'. 

4.  If  this  was  the  first  time  thru  the  declaration  (T3  not 
set  to  GOTO) 

1.  Set  T3  to  0  (indicating  processing  a  GOTO  statement) 
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20. 


d.  1. 


2.  5.  4.  2.  Set  the  inroceesing  to  begin  at  the  entry  specified 

in  T5 

3.  Continue  at  d.l.2.5  processing  the  points  as  QOIO 
statsBwnts 

6.  Duplicate  the  beginning  of  the  switch  at  the  bottom 

7.  Exit 


2.  For  declarations  other  than  Stritch,  Procedure  or  Close 

1.  Output  error  #12  (illegal  declaration) 

2.  Exit  to  find  the  end  of  the  declaration 


3.  For  Procedure  or  Close  declarations 

1.  For  a  Procedure  declaration 

1.  Set  PEAT  1  (%d.ll  remain  set  if  no  esqpress  items  are  set 
in  the  procedure) 

2.  Ignore  the  parameters  in  the  procedure  (using  procedure 
LRQTR  to  skip  by  them) 

3.  If  this  is  the  first  procedxire  of  the  program  (PRCD  EQ  9OOO) 

1.  Operate  procedure  WORST  for  the  main  part  of  the  program 
( non- procedure ) 

4.  Output  the  binary  IL  table 

5*  If  a  formatted  listing  of  the  IL  table  is  requested  (PIL  EQ  l) 

1.  Output  the  heading  using  PRTHD 

2.  Output  the  table  using  PBTIL 

6.  If  this  is  the  last  procedure  of  the  program  or  a  TSM  state¬ 
ment  has  been  encountered  (DONE  EQ  l) 

1.  Output  the  SET  table  if  requested  (binary  or  formatted) 

2.  Output  the  IRQ  table  (formatted)  if  requested 

3.  Optimize  the  working  storage  using  procedure  WORST 

4.  Output  the  nunber  of  statements  in  the  program  (STMK?) 

5.  Shut  the  files 

6.  Exit 

7*  Clear  the  IL  table 

8.  If  the  statement  parenthesis  counter  (STPC)  does  not  equal 
1  (indicates  too  few  ERDs  in  the  preceding  procedure  or 
main  program) 

1.  Output  error  #  20 
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20.  d.  3*  !•  8.  2.  Set  81PC  -  1 

2.  For  a  Close  declaration 

1.  Set  SniD  to  1  (if  it  reoaina  set  until  the  end  of  the 

program  there  have  been  only  forward  transfers  to  the  Close) 

3.  Make  up  Procedure/Close  entrance  IL  operator  entry  (ILO  ■13) 

4.  Generate  a  label  to  identify  the  end  of  the  procedure 
((SAB  «  GLAB+l) 

1.  Put  the  label  in  the  entrance  entry  (ILE  ■  (EAB) 

3.  Make  an  entzy  in  the  IRQ  table  using  procedure  INSQ  (so  that 
the  delayed-processlng  for  the  procedure  will  be  performed, 
l.e.,  putting  in  the  exit  of  the  pracedure) 

6.  Exit 

21.  a.  Name  -  Ll^ 

b.  Description  -  Input-Output  statements  are  processed  in  this  region 

c.  Procedures  called  -  (3PND,  ANCHR 

d.  Operations  - 

1.  If  a  receptacle  is  included  in  the  statement  (example:  OFEIf  lEPUT 
FILE 'NAME  VAR,  VAR  is  receptacle) 

1.  For  simple  receptacle  (not  subscripted) 

1.  Enter  the  receptacle  into  the  IL  table  using  procedure  OPND 

2.  For  complex  receptacles 
1.  Use  procediire  ANCHR 

3.  If  the  receptacle  is  express  (DEFN  E()  l),  a  procedure  is  being 
processed  (PRCD  NQ  9OO0)  and  the  type  of  the  statement  is  'input' 

1.  Set  FDAT  «  1  (express  item  being  set) 

2.  Generate  an  l/O  IL  operator  entry  (ILO  ■  28,29,30,31>32,33) 

3.  Exit 

22.  a.  Name  -  LIT 

b.  Description  -  Direct  code  statements  are  processed  in  this  region 
d .  Operations  - 

1.  Generate  a  direct  code  IL  entry  (ILO  ■  27,  ILF  ■  CATF  1st  card  #, 

ILE  ■  CATE  number  of  cards) 

2.  Exit 
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23>  a.  Name  -  SEMI 

b.  Description  -  Searches  for  the  dollar  sign  ending  a  statement  are 
performed  in  this  region 

d.  Operations  - 

1.  Seans  forward  looking  for  an  entry  describing  a  dollar  sign 
(CATC  EQ  9,  CATF  EQ  4) 

2.  Exit  for  end-of- statement  and  delayed- processing 
2k.  a.  Name  -  END8T 

b.  Description  -  This  is  the  end-of -statement  region  where  certain  book¬ 
keeping  functions  required  after  each  statement  are  perfoxmed  and  from 
where  the  delayed- processing  region  is  enteired. 

d.  Operations  - 

1.  If  the  statement  Just  processed  was  not  a  direct  code  statesmnt 

1.  Place  the  count  of  the  nunber  of  statements  since  the  last 
statement  label  (LPLUS)  into  the  first  Hi  operator  entry 
(specified  in  LOC)  of  the  statement  (HE  ■  LPLUS) 

2.  Step  the  count  of  the  statements  since  the  last  label 
(LPLUS  «  LFLU&t-l) 

3.  Step  the  statement  counter  (STMC) 

4.  Exit  for  delayed- processing 

25.  a.  Name  -  ENDl 

b.  Description  -  This  is  the  control  region  for  delayed-processing 

c.  Procedures  called  -  PRIHD,  PNTQ 

d.  Operations  - 

1.  If  there  are  no  entries  in  the  SRQ  table  (NDRQ  EQ  0  meaning  no 
possible  delayed-processing) 

1.  Exit  to  process  the  next  statement 

2.  If  one  simple  or  compound  statement  has  been  processed  since 
the  last  entry  was  made  in  the  lEQ  table  (STPC  LS  ntQB  amd 
STMC-DRQC  GR  1  meaning  there  is  delayed-processing  to  be  performed) 

1.  If  a  formatted  listing  of  the  LRQ  entries  is  requested  (PDRQ  EQ  l) 
1.  Output  the  entry  using  procedures  FBTHD  and  PRTQ 

2.  Activate  the  switch  ENDS  to  process  the  DRQ  entry 
3>  Exit  to  process  a  new  statmaent 
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26.  a.  Name  •  LNO 

b.  Description  -  Ihe  delayed- processing  reqviired  by  a  FOR  statement  is 
performed  in  this  region 

c.  Procedures  called  -  Sn<E 

d.  Operations  - 

Note:  nie  delayed-processing  required  for  all  of  the  FOR  statesients 
contained  In  a  parallel  group  is  performed  at  one  time.  n:e  starting 
SRI  entry  and  nuaber  of  FOR  statements  in  the  group  are  specified  in 
the  niQ  entry  (DRQD  and  ntQB).  For  a  single  FOR  statement  the  number 
of  FOR  statements  specified  in  IRQB  is  1. 

1.  Set  SRTS  -  1  if  the  subscript  was  ever  used  as  an  index  (SRTS  >■  SUBUl) 

2.  Deactivate  the  8\d>scrlpt 

3<  If  the  FOR  statement  has  a  dummy  TST  entry  (SRTG  BQ  O)  and  an 
Information  entry  was  Just  made  in  the  IL  (ILO  EQ  3^) 

1.  Do  not  erase  the  information  (NIL  -  NIIrt-2) 

4.  If  the  FOR  statment  was  referenced  by  a  TEST  statement  (SRTF  NQ  O) 

1.  Put  the  required  label  into  the  IL  using  procedure  SHiE 

Relocate  the  IL  entries  comprising  the  INC  euid  TST  e:qpressions  to 
the  next  available  entries  in  the  IL  and  clear  their  old  locations 

6.  Reduce  the  count  of  the  nesting  of  FOR  statements  (NEST  ■  NEST  -l) 

7.  If  there  is  a  label  associated  with  the  top  of  the  FOR  loop 
(DRQI  NQ  0} 

1.  Enter  the  label  into  the  XL  at  the  entry  following  the  LOD 
expression 

8.  Exit 

27*  a.  Name  -  LNl 

b.  Description  -  The  delayed-processing  required  by  Close  and  Procedure 
declarations  is  performed  in  this  region 

c.  Proced\ires  cedled  -  STLE,  WORST 

d.  Operations  - 

1.  If  the  last  entries  made  in  the  IL  table  describe  a  REIURN  state¬ 
ment  (an  IL  GOTO  entry  with  oi>erand  specifying  the  exit  label  of 
the  Procedure/Close) 

1.  Eliminate  the  statement  by  clearing  the  IL  entries 

2.  Enter  the  exit  label  for  the  Procedure  or  Close  into  the  IL  table 
using  procedure  STLE 

I 
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27.  d.  3*  Qenerate  an  IL  retujm  entry  (ILO  ■  l4)  for  the  Procedure  or  Close 

4.  If  this  Is  the  delayed-processing  for  a  procedure  (GLAS  EQ  6) 

1.  Record  the  tenqporary  vorklng  storage  required  by  the  procedure 
using  HORST 

5.  Exit 

28.  a.  Hame  -  IiH2 

b.  Description  -  Oie  delayed-processing  required  by  an  IF  statement  is 
performed  in  this  region 

c.  Procedures  called  -  STUB,  IFO 

d.  Operations  - 

1.  Enter  the  false  transfer  point  of  the  IP  (or  ORIF)  statement  into 
the  IL  using  procedwe  STLE 

2.  Enter  some  Information  for  the  label  with  procedure  IFO  (this 
information  specifies  the  first  and  last  entry  number  of  the  sec¬ 
tion  of  IL  in  which  the  label  is  used) 

3.  Exit 

29.  a.  name  -  LR3 

b.  Description  -  nie  delayed-processing  required  by  em  ORIF  statement  is 
performed  in  this  region 

c.  Procedure  called  -  OPTM 

d.  Operations  - 

Note:  The  delayed-processing  for  an  ORIF  statement  entails  the  genera¬ 
tion  of  the  implied  GOTO  statement  (to  the  end  of  the  IFEITU  statement) 
inherent  in  the  definition  of  the  IFJilTu-ORIF  statement  as  well  as  the 
Insertion  of  the  false  transfer  point  of  the  ORIF. 

1.  Try  to  eliminate  the  implied  GOTO  using  procedvure  OPTM 
1.  If  successful  continue  at  region  LN2 

2.  If  the  last  entries  made  in  the  IL  describe  a  relational  statement 
(meaning  a  previous  GOTO  has  been  optimized  out) 

1.  Proceed  at  LN2 

3.  Generate  a  GOTO  IL  operator  entry  (ILO  ■15)  with  an  operand 
specifying  the  end  of  the  IFBITH  statement  (IFEIX) 

4.  Proceed  at  LN2 


] 

1 

1 
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30.  a.  Name  -  LN4 

b.  Description  •  The  delayed-processing  required  by  the  IfllTH  atatmaant 
is  performed  in  this  region. 

c.  Procedures  called  -  SILE 

d.  Operations  • 

1.  Enter  the  texninatlng  Ihbel  of  the  IFUTH  statement  (HKIX)  using 
procedxire  81LB 

2.  Enter  information  entries  for  the  label  using  procedure  HO 

3.  Perfom  a  backward  scan  thru  the  ZL  searching  for  the  isqplied  GOTO 
statement  for  the  last  0RI7  portion  of  the  HBUH  statement 

1.  If  the  scan  is  successful  eliminate  the  GOTO  statement 

k.  If  this  is  a  nested  IFEITH  statement  (IRQD  NQ  O) 

1.  Set  the  tenolnatlng  label  of  the  next  IFEITH  into  HBUC 
(IFBIX  -  DROP) 

3.  Exit 

31.  a.  Name  -  END2 

b.  Description  •  Determines  if  additional  CAT  table  entries  are  needed 
for  processing 

d.  Operations  - 

l.  If  the  last  CAT  table  entry  has  been  processed 
1.  Exit  to  input  more  entries 

2.  Exit  to  process  the  next  statement 
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1.  a.  Name  -  ANCHR 

b.  Description:  This  procedure  analyzes  relational  and  arithmetic  eoqpres- 
sions  to  determine  the  order  in  which  the  expression  must  be  performed 
and  generates  IL  entries  representing  the  expression  (in  the  newly 
determined  order). 

c .  Farameters 

2 .  Output 

1.  XXX  -  Error  exit  from  the  procedure 

d.  Local  Items 


1. 

OPI 

7.  WHERE 

13.  BDIND 

19.  NOPAR 

2. 

LN 

8.  STDI 

14.  BUS 

20.  OIXX)C 

3. 

COMI 

9.  DBLOC 

15.  njioc 

4. 

BASE 

10.  ASN7T 

16.  POLOC 

5. 

BDCNT 

11.  onpos 

17.  AUI 

6. 

CCNT 

12.  LEVEL 

18.  lOPI 

Express  Items 

1. 

BNWS 

8.  Rsm 

15.  TTP 

22. 

Hi  table  items 

2. 

RIGHT 

9.  I£C« 

16.  FTP 

23. 

DICT  table  items 

3. 

LEFT 

10.  POS 

17*  LBCai 

24. 

LOGIC  table  items 

4. 

RSLT 

11.  ATTP 

18.  ODLOC 

25. 

COMMA  table  items 

5. 

MID 

12.  AFTP 

19.  BV 

26. 

BEADS  table  items 

6. 

ASPAC 

13.  call 

20.  NOW 

27. 

ACTSS  table  items 

7. 

NWS 

14.  NIL 

21.  CAT  table 

28. 

SS  table  items 

items 

29. 

NSS  table  items 

30. 

MAXWS 

Procedures  Called 

1. 

SRCHL 

5.  PUTIN 

9.  BDSV 

2. 

SRCHR 

6 .  ERROR 

10.  XBRPT 

3- 

SSFRO 

7.  POSOD 

11.  PPTCT 

4. 

LVLCP 

8.  LLOC 

12.  STLE 

g.  Used  by: 

1.  MP 

2.  DBSia 

3.  FACT 
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1.  h.  Operations 

Note:  See  SP«127  for  a  disctission  of  the  algorithm  used  as  a  basis  for 
this  procedure. 

1 .  General  Philosophy 

The  procedure  is  divided  into  two  main  sections.  The  first  section 
is  called  the  level  assignment  phase  and  the  second  section  is  the 
level  analysis  phase.  The  level  assignment  phase  consists  of  a 
scan  thru  a  statement  assigning  levels  or  priorities  to  the  various 
operators  encotmtered.  During  the  first  scan  a  'push-dovn*  type 
counter  (BASE)  is  used  to  recognize  vhen  operators  are  encoxmtered 
within  bracketed  expressions.  The  priorities  or  levels  are  raised 
by  a  fixed  amount  (the  value  of  BASE)  to  effect  the  nesting  or  order¬ 
ing  implied  by  the  parenthesis  and  brackets.  Once  the  levels  have 
been  assigned,  an  analysis  of  the  levels  is  made  to  determine  the 
actual  ordering  of  the  expression  by  the  'level  analysis'  phase. 

This  phase  makes  a  second  pass  thru  the  statesient  and  detezmlnes 
the  ordering  by  the  following  rule:  if  the  priority  or  level  assigned 
to  an  operator  is  less  than  or  equal  to  the  level  assigned  to  the 
operator  immediately  preceding  or  to  the  left  of  it,  then  the  opera¬ 
tor  on  the  left  and  its  operands  should  be  entered  into  the  ZL  table 
(the  operator  on  the  rig^t  on  this  case  is  called  an  ' anchor- point ' ). 

2.  'Level  Assignment' 


1 .  Genered  Philosophy 

This  section  makes  a  scan  throuj^  a  statesient  assigning  levels 
or  priorities  to  the  operators  it  encounters.  The  values  of 
the  priorities  are  presented  below: 


Operator 


Priority 


1 .  Separators  1 

I  __  f  I  1 1 
“  »  ...  / 

2.  Logical  operator  'OR'  2 

3.  Logical  operator  'AND'  3 

4.  Relational  operators  ('LS'.  'EQ',  4 

'LQ',  'GR',  'NQ',  'GQ')  and 
Boolean  items  requiring  testing 
(example  IF  BOOL  $  as  opposed  to 
BOOU  -  B00L2  $) 

5.  Arithmetic  operator  5 
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6.  Arithmetic  operator  6 

7*  Arithmetic  operator  '#*'  7 

8.  Unary  minus  8 

9.  Procedrure  call  OOP')  10 

10.  Absolute  value  (ABS)  11 

11.  Nested  subscript  of  standard  form  12 


(See  further  on  in  the  discussion  of  this  procedure  for  a 
definition  of  standard  form.) 

The  level  of  nesting  of  esqpressions  is  maintained  in  a  'push¬ 
down*  type  item  called  BASE.  This  item  is  increaised  by  20 
for  every  left  parenthesis  or  bracket  and  decreased  by  20  for 
every  riefht  parenthesis  or  bracket.  The  only  exceptions  to 
this  rule  are  the  brackets  around  standard  subscript  ex¬ 
pressions  and  the  parenthesis  around  a  beaded  variable.  These 
types  of  bracketers  do  not  alter  the  value  in  BASE,  niere- 
fore,  the  actual  level  assigned  to  a  given  operator  is  a 
function  of  its  priority  and  the  current  base  value. 

LEVEL  =  'Priority'  +  BASE 

1.  h.  2.  2.  Operations 

1.  Housekeep  key  items 

2.  Commence  scan  at  entry  specified  in  item  FIRST 

3.  When  the  scan  proceeds  to  the  entry  specified  in  LAST 

1.  If  a  formatted  listing  of  the  CAT  table  thus  processed 
is  requested  (FCAT2  EQ  l) 

1.  Format  emd  output  the  CAT  table  using  procedure 
PPTCT 

2.  Continue  processing  In  the  analysis  section  l.h.3« 

4.  Process  each  entry  by  its  class  (CATC)  by  activating  the 
switch  CLSS 

1.  Separator  processing  according  to  the  form  (CATF)  of 
the  entry  by  activating  the  switch  SEP 

1.  Fox 

1.  Assign  level  to  operator 
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1.  h.  2.  2.  4.  1.  1.  2.  Set  the  'operator  Just  processed'  indicator 

(OPI  -  1) 

2 .  For  • , '  or  ' . . . ' 

Note:  It  is  necessary  to  be  able  to  distinguish 
between  cobbibs  ending  subscript  exjuressions  and 
comnas  ending  procedure  call  parameter  expressions. 
The  reason  for  this  is  that  comnas  ending  sub¬ 
script  e^qpresslons  must  be  processed  like  sub¬ 
script  brackets  because  of  the  analysis  done  in 
the  recognition  of  subscript  e^qpressions  of 
standard  form  (see  discussion  in  section  on  left 
brackets).  This  recognition  is  accoa^llshed  using 
the  'push-down'  table  OMMA.  A  1  valued  entry  is 
made  in  this  table  each  time  a  left  bracket  is 
encountered  and  a  0  valued  entry  is  made  for  each 
left  parenthesis.  Rl£^t  brackets  axid  right  pa¬ 
renthesis  delete  entries.  Therefore,  by  examining 
the  current  entry,  it  is  possible  to  determine  if 
the  comna  is  located  within  subscript  brackets  or 
within  parenthesis. 

1.  If  this  separator  terminates  a  bead  or  sub¬ 
script  expression  (CIND  IQ  1  meaning  the 
separator  was  encountered  within  a  bracketed 
e^^ression) 

1.  Set  COMI  -  1 

2.  Continue  processing  as  if  the  separator 
were  a  rlghi  bracket  (h. 2. 2. 4. 10. 4) 

3.  For  '!' 

1.  Set  LAST  to  the  CAT  entry  number  of  the  pre¬ 
ceding  entry  (LAST  ■  FOS  -  l),  thus  terminat¬ 
ing  the  scan. 

2.  Continue  processing  at  h.2.2.3 

2.  Arithmetic  operator  processing  according  to  the  form 
(CATF)  of  the  entry  by  activating  the  switch  AOP 

1.  For  '+',  '-',  Unary  -,  ABS 

1.  Assign  level 
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1.  h.  2.  2.  4.  2.  1.  2.  Set  OPI  -  1 

2.  For  7S  '**• 

1.  If  the  preceding  entry  contained  an  operator 
(OPI  EQ  1) 

1.  Output  error  #26 

2.  Continue  scan  (h.2.2.4) 

2 .  Assign  level 

3.  Set  OPI  -  1 


3*  For  procedure  call  'OF' 

1 .  Assign  base 

2.  If  a  'NOT'  has  been  encountered  previously  in 
the  statement  (LN  is  odd) 

1.  Exclude  from  the  influence  of  the  'HOT' 
any  Boolean  expressions  which  are  included 
as  parameters  in  the  procedure  call  (step 
LN  by  1  and  set  LOGIC  to  BASE  +  20) 

3.  Set  OPI  »  1 


3<  Logical  operator  processing  according  to  the  form 
(CATF)  of  the  entry  by  activating  the  switch  LOP 

1.  For  a  'NOT' 


Note:  'NOT'  symbols  themselves  are  eliminated 
from  the  statements'.  However,  their  influence  is 
effected  in  the  statement  according  to  the  follow¬ 
ing  rules: 

1.  Boolean  operands  are  to  be  negated; 

2.  Relationed  operators  are  to  be  complemented; 

3.  Logical  expressions  are  to  be  altered  in 
accordance  with  De  Morgan's  theorems: 

(a)  H0T(A  Ab)b  NOT  aV  HOT  B 

(b)  N0T(A  Ab)  ■  HOT  A^  NOT  B 
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The  push-down  table  LOGIC  Is  used  to  acknowledge 
the  presence  of  a  NOT  Influence.  An  entry  Is 
nade  in  the  table  each  time  a  NOT  Is  encountered. 
The  base  level  at  which  the  NOT  is  to  be  effective 
is  recorded  in  the  entry.  This  is  done  even  when 
the  NOT  is  to  affect  only  one  relational  (Operator 
or  Boolean  item  where  the  base  level  will  not  in¬ 
crease.  However^  the  system  continues  to  work 
because  the  condition  for  deletion  of  an  entry 
is  met  (see  below). 

Exaople;  (NOT  A  LS 

NOT  (A  LS  B  LS  C)^ 


In  expression  1  the  base  at  the  NOT  and  at  the  LS 
is  the  same.  However,  in  expression  2  the  base 
has  been  raised  for  the  LS.  An  entry  is  deleted 
from  the  table  each  time  the  base  drc^s  below  the 
value  recorded  in  the  entry.  The  test  for  delet¬ 
ing  an  entry  is  made  after  the  processing  of  re¬ 
lational  operators,  Boolean  expres  slons  and  right 
bracketers.  If  the  number  of  entries  in  this  table 
is  odd,  an  operator  is  under  the  influence  of  a 
NOT.  Thus  in  effect  even  nunbers  of  nested  NOT's 
will  tend  to  cancel  themselves  and  odd  nunibers  of 
nested  NOT's  will  not. 

1.  h.  2.  2.  4.  3*  !•  3*  !•  Delete  the  entry  describing  the  NOT 


2.  If  am  entry  should  be  deleted  from  the  IXXrIC 
table  (example:  NOT  NOT  A  LS  B) 

1.  Delete  the  entry 

2.  Set  OPI  =  1 

3.  Make  an  entry  in  IJOGIC 
h.  Set  CPI  =  1 

2.  For  an  'AND'  or  'OR' 

1.  Assign  a  level 

2.  If  there  is  an  odd  number  of  entries  in  LOGIC 
(under  the  influence  of  a  NOT) 
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1.  h.  2.  2.  4.  3.  2.  2.  1.  Cooqplensnt  operstor 

3«  Set  OPI  “  1 

4.  For  statenent  labels^  files,  constants  and  direct  code 
asslgnaent  operators  (CAIF  IQ  1,  2,  3,  20) 

1.  Set  CPI  »  0 

3.  For  subscripts  (CAIF  BQ  T) 

1.  If  the  subscript  is  inactive  (ACI88  IQ  0) 

1.  Output  error  jf34 

2*  If  the  modifier  of  the  subscript  is  ODD 

1.  Continue  processing  as  a  Boolean  variable 
(h.2  •2*4<6»1) 

3.  Set  QPI  »  0 

6.  For  sla3)le  or  subscripted  items 

1.  If  it  is  a  Boolean  item  (TflFV  BQ  2)  or  if  it  has  an 
ODD  modifier  (CATS  BQ  10) 

Note:  Not  all  Boolean  e:q>resslons  are  assigned 
levels.  Only  those  expressions  ehlch  actually 
require  testing  receive  levels.  Boolean  e^qpressions 
used  in  simple  assignment  stateiMnts  are  not  assigned 
levels  (exaaple:  B00L2  ■  BOOLl  $).  Therefore,  the 
tvo  procedures  SRCHL  and  SRCHR  are  used  to  determine 
if  the  expression  is  used  with  logical  operators  or 
the  IF,  UBITH,  or  ORIF  operators.  If  none  of  these 
are  encountered  by  the  procedure,  the  Boolean  ex¬ 
pression  receives  no  level. 

1.  Scan  left  using  SRCHL  for  a  logical  operator  or 
an  IF,  miTH,  or  ORIF 

1.  If  successful 

1.  Assign  level 


2.  Uhsuccessfol 
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1.  h.  2.  2.  4.  6.  1.  1.  2.  1.  Operate  SRCSIR 

1.  If  successful  assign  level 
2.  Set  OPI  -  0 


3<  If  under  the  influence  of  a  HOT 

1.  Negate  the  Boolean  item  (CAIA  ■  l) 

4.  Delete  an  entry  from  LOGIC  if  required 
7*  Por  procedure  labels  (CATC  EQ  6) 

1.  If  it's  a  Boolean  procedure  (TYTV  EQ  2) 

1.  Process  as  a  Boolean  item  (h. 2. 2. 4. 6.1.) 


2.  Set  OPI  -  0 


8.  For  relational  operators  (CATC  EQ  0-$) 

1.  Assign  a  level 

2.  If  under  the  influence  of  a  NOT  (odd  nuaiber  of 
LOGIC  entries) 

1.  Complement  the  operator 

2.  Set  CATA  -  1. 

Note:  Relational  operators  are  sometimes 
also  used  as  logical  operators.  Example: 

A  ^(2)^*  expression  is  legal 

shorthand  for  A  ^  ^(2)^'  ^ 

example  I^^2)  relational. 

operator  'Less  than*  and  the  logical  operator 
'AND' .  If  this  expression  were  under  the  in¬ 
fluence  of  a  'NOT',  the  'AND'  sho\ild  be  changed 
to  an  'OR',  nierefore,  CATA  is  set  to  1  to 
change  its  meaning  to  'OR'. 

9*  For  Bbad  entries  (CATC  EQ  I6). 

Note:  It  is  necessary  to  ignore  the  parenthesis 
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surrotmdlng  the  object  of  a  Bead.  To  effect  this, 
the  push-down  table  BBADB  is  \ised.  An  entry  is  made 
in  this  table  recording  the  cxurrent  base  when  a  Bead 
(CATC  EQ  16)  is  encountered.  If  a  parenthesis  is 
encoxmtered  and  the  level  at  that  time  matches  the 
level  last  recorded  in  the  BEADS  table,  that  parenthe¬ 
sis  is  concluded  to  surround  the  object  of  a  Bead  and 
is  therefore  ignored.  Similarly  the  right  parenthesis 
is  identified  and  causes  entries  to  be  deleted  from 
the  BEADS  table. 

1.  h.  2.  2.  4.  9*  Make  an  entry  in  the  BEADS  table 

2.  Set  OPI  -  0 

10.  Bracketer  processing  according  to  the  form  (CATF)  of 
the  entry  by  activating  the  switch  BRK 

1.  For  left  parenthesis  (CATF  EQ  0,  lO) 

1.  If  this  is  the  left  parenthesis  associated 
with  the  object  of  a  Beaded  expression  (BASE 
EQ  BDBSE) 

1.  Set  CATF  -  10 

2.  Continue  at  h. 2. 2. 4. 10. 1.3. 

2.  Increase  the  base  by  a  unit  (20) 

3.  Make  a  zero  entry  into  the  comma  table 
(CIWD  »  0) 

4.  Set  OPI  -  1 

2.  For  right  parenthesis  (CAT  EQ  0,  U) 

1.  If  this  is  the  rl^t  peurenthesis  associated 
with  the  object  of  a  Beaded  e:qpresslon 
(BASE  EQ  BDBSE) 

1.  Set  CATF  -  11 

2.  Delete  an  entry  from  the  BEADS  table 

3.  Continue  at  h. 2. 2. 4. 10. 2. 3. 
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1.  h.  2.  2.  k.  10. 


.  2.  Decrease  the  base  by  a  \init  (20) 

3*  Delete  an  entry  from  the  0(Mf4  table 

4.  Delete  an  entry  from  the  L0(nc  table  if 
regulred. 

3.  Set  OPI  -  0 

.  Left  bracket  (CATP  EQ  2>  8). 

Note:  !Ihe  general  form  of  a  subscript  expression 
vhich  can  be  contained  in  a  single  IL  subscript 
entry  is  variable  ^  constant.  This  e:q>resslon 
and  variations  of  it  (as  listed  belov)  are  called 
the  standard  svibscrlpt  fozns.  Since  all  of  the 
elements  of  one  of  these  forsis  can  be  contained  in 
a  single  XL  entry,  it  is  not  necessary  to  assign 
levels  within  one.  Also,  if  subscript  e:qpressions 
are  nested  and  the  nested  e:qpresslon  is  of  standard 
form,  the  nested  expression  is  entered  into  the  IL 
usli:g  a  special  nester  operator  (ILO  >26).  There¬ 
fore,  when  a  left  bracket  is  encountered,  the  pro¬ 
cedure  SSFRO  is  used  to  Gmalyze  the  sxibscript  ex¬ 
pression.  The  purpose  of  the  analysis  done  by 
this  procedure  is  to  determine  >rtien  it  is  necessary 
to  assign  levels  to  arithmetic  operators  used  with¬ 
in  subscript  expressions  and  when  it  is  necessary 
to  assign  nester  levels  to  subscript  variables  or 
beaded  e:q>resslons  located  within  brackets.  Ex¬ 
pressions  located  within  subscript  brackets  or 
within  commas  within  subscript  brackets  are  deemed 
to  be  of  standard  form  when  they  are  of  the  follow¬ 
ing  type  or  when  they  can  be  reduced  to  the  follow¬ 
ing  types: 

±  VAB  or  SUBS  or  TQIP 
±  VAR  or  SUBS  or  TEMP  ±  CONS 
±  CONS 

±  ABS  (VAR  or  SUBS  or  TEMP) 

ABS  (VAR  or  SUBS  or  TEMP)  ±  CONS 
with  VAR  meaning  variable 
SUBS  meaning  subscript 
TEMP  meaning  temporary  storage 
CONS  meaning  constant 
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1.  h.  2.  2.  4.  10.  3- 


Examples: 

Let  SV  mean  subscripted  variable 
SV[A*»-l]:  A-t-l  standard 
SVCa-*-1*B]:  A+l^B  not  standard 
SV^Csv^CaI^I]: standard-assign  nesting 

level  reducing  the  expression 
to: 

SV  Ctemp+l3:  Tenqp+1  standard 
BYTECA+l,B't-l3(VAR):  A4-1  standard 

B-t-1  standard 

SvCbYTB[A,b3(VAR)]:  BYTB[A,b3(VAR):  standard- 

assign  nesting  level  reducing 
the  expression  to: 

SVCtEMP]:  standard 

The  SS  table  Is  used  In  a  'push-down*  manner  In 
the  analysis,  thus  pexmlttlng  nested  ejqpresslons 
to  be  considered  for  standard  form.  Example: 

SV(i)  C5V(2)  CSV(3)  Cvar>i]+23 

The  analysis  of  the  expression  starting  with 
bracket  (l)  Is  started  but  can  not  be  completed 
\mtll  the  e:qpresslon  starting  with  (2)  Is  complete. 
This,  In  turn,  can  not  be  completed  until  (3)  Is 
complete.  All  of  the  e;q>ressions  are  of  standard 
form.  Items  In  the  SS  table  are  used  to  remember 
vdiich  parts  of  the  standard  forms  have  been  recog¬ 
nized  In  a  given  expression.  If  the  right  boundary 
(either  a  comma  or  right  bracket)  of  a  potential 
standard  subscript  e:q)resslon  is  encountered  before 
a  duplicate  or  illegal  standard  form  part  of  speech 
is  discovered,  the  e:q)ression  is  considered  to  be 
of  standard  form. 

1.  Increase  the  base  by  1  unit  (20) 

2.  Prepare  to  use  the  next  entry  In  the  SS  table 

3.  Make  a  bracket  entry  In  the  COMM/l  table  (Cim)  »  l) 

4.  Analyze  the  subscript  e:q>ression  to  see  If  it  is 
of  standard  form  using  procedure  SSFRO 
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U.  10.  3*  !•  ^  not  of  standard  form  (STDI  EQ  O) 

1.  Set  OPI  -  1 


2.  Continue  scan  at  h.2.2.U. 

2.  If  standard  form  (SIDI  BQ  l)  and  the  expression 
texmlnated  with  a  comna  (OOia  BQ  l) 

1.  Continue  at  h. 2. 2. 4. 10. 4. 3.1. 

3.  If  standard  form  (STDI) 

1.  Process  the  right  bracket  ending  the  ex¬ 
pression  at  h. 2. 2. 4. 10. 4. 

4.  Right  bracket  (CATF  EQ  3) 

1.  Assign  a  level  of  coma  (priority  of  l)  (This 
level  is  used  as  an  Anchor  point  level  only  so 
that  an  entire  subscript  compression  will  be  pro¬ 
cessed  prior  to  advancing  further  thru  the 
statement.  When  the  entire  subscript  compression 
is  porocessed;  this  level  is  removed.) 

2.  Decorease  the  base  by  1  unit  (20) 

3.  If  there  is  only  one  ento:y  in  the  SS  table  (there 
are  no  nested  subscript  compressions)  or  the  type 
of  the  preceding  compression  was  arithmetic 
(STIPE  EQ  0) 

1.  If  the  compression  being  processed  is  teorminated 
by  a  comma  (OOMI  EQ  l) 

1.  Assign  a  level  to  the  comma 

2.  Clear  the  SS  entoiy  except  for  the  CAT 
ento7  number  of  its  left  bracket  (IJ9P0S) 

3.  Continue  processing  as  if  the  comma  were 
a  left  bracket  (h. 2. 2. 4. 10. 3 .4.) 

2.  Delete  an  entiy  from  the  SS  table  and  the 
OOMiA  table 

3.  Continue  processing  at  h.2.2.4. 
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1.  h.  2. 


.  4.  10.  4.  4.  If  the  preceding  eoqpreesion  was  a  Bead  type  (STIPE 

BQl) 

1.  Set  the  foxn  (GASP)  of  the  left  bracket 
connencing  the  bead  exj^asion  to  8 

2.  Assign  a  nest  level  (12)  to  the  left  bracket 
cosssenclng  the  bead  e^qparesslon  (nested  bead 
egression  of  standard  form) 

3.  Continue  processing  at  h. 2. 2. 4. 10. 3*2. 

5.  Using  the  procedure  SSPBO,  detemlne  If  the  pre¬ 
ceding  expression  Is  of  standard  foxm  (example: 

SVCsvCa^P  -t-l]  )  processing  Is  nov  at  the  rlc^t 

bracket  (l) 

1.  If  the  e:qpresslon  Is  standard  (STDI  BQ  l) 

1.  If  the  preceding  e;:q^esslon  contained  an 
ABS  modifier 

1.  Reduce  the  base  by  1  wit  (20) 

2.  If  the  e^qpresslon  temlnated  In  a  comma 
(CONI  EQ  1) 

1.  Delete  an  entry  from  table  SS 

3.  If  the  expression  terminated  In  a  rlg^t 
bracket 

1.  Set  POS  to  FOS-1  so  the  ri^t  bracket 
will  be  processed 

4.  Assign  a  Nest  level  (12)  to  the  left 
bracket  of  the  expression 

5.  Continue  processing  at  h. 2. 2. 4. 10. 3*2. 

2.  The  expression  is  not  of  standard  form 
(STDI  EQ  0) 

1.  Reset  the  type  of  the  preceding  e:q>res- 
slon  to  arithmetic  (STIPE  >  O) 
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1.  h.  2.  2.  U.  10.  4.  5.  2.  2.  Assign  s  eonsa  level  (l)  to  the  left 

bracket  of  the  preceding  eiqpression 
(this  is  only  an  anchoring  level  and 
after  it  is  once  used  it  is  eliminated) 


3.  Change  the  fom  (CATF)  of  the  left 
bracket  to  12 


k.  Delete  an  entry  from  the  SS  and  OCMA 
tables 


3  •  Level  Analysis 

1.  General  Fhilosphy  >  ^Is  phase  makes  a  scan  thru  the  statement 
converting  the  statement  into  intermediate  language  in  an  order 
detemlned  by  an  analysis  of  the  levels  assigned  by  the  first 
phase.  A  rl£^t  scan  is  made  thru  the  statement  comparing  the 
level  of  each  operator  vith  the  level  of  the  operator  imsie- 
dlately  preceding  it  (to  the  left  of  it).  If  an  operator  is 
enco\intered  with  a  level  which  is  less  than  or  equal  to  the  level 
of  the  operator  to  its  left,  the  operator  on  the  left  is  entered 
into  the  IL  table,  a  left  scan  is  begun  to  determine  if  the 
'anchor- point'  can  still  be  considered  an  'anchor- point'  with 
respect  to  the  next  operator  to  its  left.  As  long  as  the  'anchor- 
point'  relationship  exists,  operators  and  their  operands  are  put 
into  the  IL.  If  a  level  is  encoxmtered  which  is  less  than  the 
level  of  the  'anchor-point',  the  right  scan  is  initiated  once 
more  searching  for  a  new  ' anchor- point ' .  The  end  of  a  state¬ 
ment  is  considered  as  the  final  'anchor- point'  and  when  this 
point  is  determined,  each  operator  encountered  in  the  left 
scan  is  immediately  entered  into  the  IL. 

Two  other  general  operations  are  performed  in  this  phase.  The 
first  is  the  assignment  of  intermediate  or  temporary  working 
storage.  Each  time  an  operator  and  its  operands  are  entered 
Into  the  Hi  an  intermediate  result  is  determined.  If  this 
intermediate  result  is  one  of  the  operands  for  the  next  operator 
entered  into  the  XL,  no  specific  assignment  to  a  temporary 
storage  is  necessary.  However,  if  it  is  not  used  immediately, 
an  assignment  to  a  particular  temporary  storage  is  required. 

The  general  rule  for  determining  an  assignment  is:  when  a  new 
'anchor- point'  is  required,  the  last  'resxilt'  implied  in  the 
IL  must  be  assigned  a  temporary  storage. 
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The  other  general  operation  is  the  determination  of  transfer 
points  for  relational  and  logical  exjnressions .  It  is  necessary 
to  determine  the  lixikage  between  the  various  parts  of  a  re¬ 
lational  statement,  niis  is  accomplished  using  the  procedure 
XntPT  and  is  explained  in  more  detail  in  that  region  of  the 
procedure  directly  concerned  with  relational  operators. 

2 .  Specific  Operations 

1.  If  the  value  of  the  base  is  not  0  (BASE  NQ  O)  meaning 
there  was  an  odd  number  of  parentheses  or  brackets  in  the 
statemeht 

1.  Output  error  #28 

2.  Exit 

2.  Housekeep  the  items  required  in  this  phase. 

3.  Initiate  the  scan  at  the  CAT  table  entry  specified  in  FIRST. 

4.  Locate  a  CAT  table  entry  containing  a  level  (CATE  NQ  0)  or 
else  the  end  of  the  statement  (the  entry  specified  in  LAST). 

5.  Determine  if  the  entry  with  the  level  is  an  'anchor- point' 
using  procedure  LVLCP. 

6.  If  the  last  assignment  to  temporary  storage  was  unnecessary 
(BNWS  EQ  1) 

1.  Change  the  last  assignment  to  specify  a  temporary 
storage  of  0  or  result. 

2.  Reduce  the  count  of  temporary  storage  assigruaents  by  1 
(NWS  =  NWS-l). 

7.  If  an  'anchor- point'  could  not  be  determined  by  LVLCP 
because  the  beginning  of  the  statement  was  encountered  prior 
to  the  locating  of  an  operator  with  a  level  (LEVEL  EQ  3) 

1.  Continue  the  ricd^t  scan  at  h.3.2.4. 

8.  If  the  conditions  for  an  'anchor-point'  were  not  met 
(LEVEL  EQ  0) 

1.  If  an  assignment  to  a  temporary  storage  should  be  made 
(RSLT  NQ  0) 
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1.  h.  3*  2.  8.  1.  1.  Inltiedize  Itan  RSLTI  to  1  to  indicate  "the  number 

of  operators  -t*  1"  that  have  been  processed  since 
the  last  temporary  storage  asslgnsient. 

2.  Generate  a  nev  tenqporary  storage  "register" 

(Mws  -  mrs-t-i) 


3*  Rememher  the  entry  in  vhich  the  assignment  is  being 
made  in  case  it  was  not  really  necessary  (POLOC  ■ 
OLOC)  (See  h.3.2.6). 

U.  Make  the  assignment  in  the  last  IL  operator  entry 
(OLOC) 


3.  If  the  last  operator  required  a  temporary  storage 
operand  entry  as  its  first  (left)  operand  (ASn? 
EQ  1)  (for  example,  an  assignment  of  a  nested 
Bead  esqpresslon) 


1.  Update  the  assignment  in  the  operaxtd  entry. 

6.  Substitute  the  nev  temporary  storage  for  the  result 
of  the  last  operator  in  the  CAT  table. 

Note:  As  operators  and  operands  are  entered  into 
the  IL  they  are  cleared  from  the  CAT  table  and  for 
each  operator,  an  entry  describing  a  temporary 
result  (CATC  18)  is  inserted.  This  temporary 
result  entry  represents  the  result  of  performing 
the  operation  specified  by  the  operator  on  its 
operemds.  l^erefore,  this  entry  must  also  be 
changed  vdien  a  temporeury  storage  assignment  is 
made  for  this  operator.  Item  RSLT  contains  the 
CAT  table  entry  number  of  the  last  temporary  result 
entry  substituted  for  an  operator. 

7.  If  this  is  a  forced  assignment  of  temporary  storage 
(RIGHT  NQ  R) 


Note:  Hhere  are  certain  cases  which  require  an 
assignment  of  a  temporary  storage  even  thou^  the 
resxilt  might  be  used  immediately.  The  first  case 
is  arithmetic  expressions  used  in  parameters  for 
procedure  calls.  No  IL  operand  entry  describing 
a  parameter  or  subscript  or  bead  entry  associated 
with  a  parameter  can  specify  a  to&porary  storage 
of  result  (ILD  EQ  3>  HiF  EQ  O).  (This  is  a 
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Translator  restriction  primarily  applicable  to 
output  parameter  expressions.)  The  second  case  is 
in  relational  statements  containing  inqplied  AHD's. 
Example: 

A  L3  B-t-C  LS  D 

In  this  exaaple  B+C  must  be  assigned  to  tempozvry 
storage  because  it  is  lued  as  an  operand  for  more 
than  one  operator.  These  tvo  cases  are  recognized 
by  procedure  LVLCP.  It  adjusts  the  scan  to  force 
the  temporary  storage  asslgimmnt  by  setting  RIGHT  * 
RIGBT'l  causing  the  current  operator  to  be  examined 
twice;  the  first  examination  forces  the  assignment, 
the  second  examination  proceeds  normally. 

1.  h.  3.  2.  8.  1.  7*  !•  Step  RSLTI  by  1  to  prevent  the  later  deas¬ 

signment  of  the  temporary  storage  (see  h.3.2.6.). 

2.  Continue  the  right  scan  (h.3.2.4.) 

9.  If  end-of- statement  was  determined  (LEVEL  EQ  2) 

1.  If  no  operators  were  determined  in  the  left  scan 
(left  LS  first)  etnd  the  end-of- statement  is  not  an 
'anchor-point  * 

1.  Perform  a  rigat  scan  starting  at  the  beglxming 
of  the  statement  (RIGHT)  looking  for  an  entry 
describing  the  last  possible  operand  in  the 
statement . 

1.  If  the  scan  is  successful,  use  the  procedure 
PUTIN  to  enter  the  operand  in  the  IL  table 
leaving  an  empty  entry  for  an  operator  entry. 

2.  Exit 

2.  If  an  operator  was  encountered  (meanixig  the  end^of- 
statement  is  an  'anchor-point ' )  continue  processing 
at  h. 3.2.10.1. 

If  an  'anchor- point'  was  determined  (LEVEL  EQ  l) 

1.  Step  RSLTI  by  1  to  Indicate  the  number  of  operators 
'>-1  processed  since  the  last  temporary  storage  as¬ 
signment. 


10. 
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2.  10.  2.  If  the  class  of  the  operator  on  the  left  is  separator 
(CATC  EQ  9)  isqplying  an  ■  or  ■>  operator 

1.  Generate  an  IL  operator  entry  containing  the  ap¬ 
propriate  operator  (ILO  ■  21>22) 

2.  Process  the  operands  as  arithsMtic  operands  at 

h. 3.2.10. U.4. 

3.  If  the  class  of  the  operator  on  the  left  is  bracketer 
(CATC  EQ  10)  implying  a  nesting  operation 

1.  If  the  bracketer  is  of  foxm  8(CATF  EQ  8)  meaning 
this  is  the  left  bracket  of  a  bead 

1.  Generate  an  assignment  IL  operator  entry 
(ILO  -  21) 

2.  Generate  an  operand  entry  of  temporary  storage 
specifying  result  (ILF  ■  O) 

3.  Using  the  procedxure  BDSV  enter  the  second 
operand. 

2.  If  the  bracketer  is  not  of  form  8(CATC  NQ  8}  it 
must  be  the  left  bracket  of  a  subscript  e^qpression. 

1.  Generate  a  nester  IL  operater  entry  (ILO  »  26} 

2.  Locate  the  operand  associated  with  the  bracket 
using  procedure  F090D 

3.  Enter  the  operand  into  the  IL  using  procedure 
PUTIN 

3.  Exit  to  continue  the  scan  (h.3.2.k) 

4.  If  the  class  of  the  operator  on  the  left  is  arithmetic 
(CATC  EQ  13) 

1.  Generate  an  arithmetic  IL  operator  entry  (nX)  ■  7-12} 

If  the  form  of  the  entry  is  'OF'  (CATF  EQ  5}  meaning 
a  procedure  call 


2. 
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.  1.  Tbrce  any  previous  assignments  to  temporary 

storage  to  be  maintained  by  setting  RSLTI  ■  3* 

2.  If  a  procedure  name  is  not  described  in  the 
entry  preceding  the  OF 

1.  Output  error  #32 

2.  Exit  at  the  error  exit 

3.  Generate  an  IL  operand  entry  containing  the 
name  of  the  procedure. 

4.  Set  CAUi  to  the  dictionary  entry  mxaber  of 
the  procedure. 

3.  Record  the  current  level  of  voxklng  storage 
at  the  procedure  call  using  procedure  WORST. 

6.  Enter  the  parameters  in  the  IL. 

1.  If  no  parameters  (the  OF  is  followed  by  a 
$  or  empty  brackets  (  )  )>  continue  at  7. 

2.  Keep  a  count  of  the  param'^ters  in  NOPAR. 

3.  Set  lOFI  to  0  for  input  parameters  and  to 
1  when  the  is  encountered  indicating 
output  parameters  follow. 

4.  Set  UR  to  lOPI  in  each  IL  entry  (specified 
in  ODPOS)  describing  a  parameter. 

3.  If  the  parameter  is  an  express  item 

(lEFN  EQ  1)  eund  it  is  an  output  peurameter 
(lOPI  £Q  1)  and  this  call  does  not  occur 
in  the  main  body  of  a  program  (PRCD  NQ  9000 ), 
set  PDAT  m  0  Indicating  an  express  item  is 
being  set. 

7.  Enter  the  count  of  the  parameters  (liOPAR)  in 
ILE  of  the  first  IL  operand  entry  of  the  call. 

6.  If  the  procedure  is  a  function  (SIND  £Q  l) 

1.  Continue  the  scan  at  h.3.2.4. 
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] 


1.  h.  3>  2.  10.  4.  2.  9.  Operate  the  procedure  UOC  to  detemlne  if 

there  are  axiy  other  operators  present  in  the 
statement . 

10.  If  there  are  other  operators  In  the  statement^ 
or  the  'anc)u)r- point'  is  not  on  the  $  (mean¬ 
ing  the  procedure  is  used  as  a  function) 

1.  Output  error  #32 

2.  Exit  to  the  error  exit 


11.  Exit 


3.  If  the  form  of  the  entry  is  ABS  or  unary  - 
(CAIF  EQ  7,6) 

1.  Perform  a  ric^t  scan  to  locate  the  operand 
associated  with  the  operator. 

2.  If  the  operator  is  unary  -  ; complement  CATA 

3.  If  the  operator  is  ABS:  set  CAXB  to  6  and 
CATA  to  0. 

1.  If  the  operand  is  the  object  of  a  Bead 
expression 

1.  Output  error  #30 

4.  Exit  to  continue  the  rif^t  scan  at  h.3>2.4. 

4.  Locate  the  position  of  the  left  operatnd  using 
procedure  FOSOD. 

5.  Enter  the  left  operand  using  pirocedure  PUTIN. 

6.  Enter  the  right  operand  using  procedure  PUTIN. 

7.  Exit  to  continue  the  scan  at  h.3.2.4. 

5.  If  the  class  of  the  operator  on  the  left  is  file, 
simple  item,  subscripted  item,  procedure,  subscript 
or  temporary  storage  (meaning  the  operand  is  Boolean 
or  is  modified  by  a  Boolean  modifier)  (CATP  EQ  2, 4, ^,6, 7,18) 

Note:  nie  normal  structure  of  a  Boolean  test  in  the  inter¬ 
mediate  language  is  'BOOL  NQ  O'.  Therefore,  when  processing 
a  Boolean  expression  the  operator  'NQ'  must  be  supplied  as 
veil  as  the  operand  'O'. 
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1.  h.  3.  2.  10. 


.  1.  Generate  a  'not  equal'  IL  operator  entry  (ILO  «  3). 

2.  If  the  operand  is  under  the  Influence  of  a  NOT 
(CATA  EQ  1) 

1.  Complement  the  IL  operator  (ILO  -2). 

3.  Enter  the  Boolean  operand  Into  the  IL  \islng  pro¬ 
cedure  HJTIN. 

4.  Generate  an  IL  operand  entry  specifying  the  operand 
0  (DICT  entry  1  specifies  the  constant  O). 

3.  Continue  processing  as  a  relational  statement  at 

h. 3.2.10. 6.6. 


.  If  the  class  of  the  operator  on  the  left  is  relational 
operator  (CATC  EQ  12) 

1.  Generate  a  relational  IL  operator  entry  (ILO  ■  0-6). 

2.  Locate  the  left  operand  using  procedure  FOSOO. 

3.  Enter  the  left  operand  into  the  IL  using  procedure 
PUTIN. 

4.  If  a  relational  operator  is  described  in  the  'anchor- 
point'  entry  (CATC  EQ  12) 

Note:  An  expression  of  the  form  A  LS  B  LS  C  is 
being  processed  vhen  an  'anchor-point'  describes  a 
relational  operator  and  the  operator  to  its  left  is 
also  a  relational  operator.  Since  this  is  really 
short  hand  for  the  e:q>re8Sion  A  LS  B  AND  B  LS  C, 
it  is  hie’cieViaPJr  thht  the  middle  operand,  B  in  this 
example,  not  be  erased  when  it  is  first  entered  into 
the  IL.  (Customarily,  CAT  table  entries  are  cleared 
as  they  are  converted  into  IL.)  Also  since  the  ex¬ 
pression  may  have  been  originally  of  the  form  A  LS 
B-t-D  LS  C,  it  is  necessary  that  the  expression  B+D 
be  assigned  permanently  to  temporary  storage. 

1.  Set  ERAS  s  1  to  stop  the  rlg^t  operand  from 
being  erased. 

2.  Set  RSLTI  «  3  to  prevent  the  elimination  of  a 
temporary  storage  assignment. 
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1.  h.  3.  2.  10.  6. 


5,  Enter  the  rl^^t  operand  Into  the  IL  using  procedure 
PUTIN. 


6.  Using  procedure  UOC  locate  the  first  entry  contain¬ 
ing  a  level  vhich  precedes  the  'anchor- point*  entry. 

7.  Determine  the  transfer  point  req\iired  for  the 
e:qpression  using  procedure  XFBPT. 

Note:  Of  primary  concern  in  the  analysis  of  log¬ 
ical  expressions  is  the  determination  of  the  linkage 
required  between  the  various  portions  of  the  expres¬ 
sions  . 

Example: 

If  aA  B  A  C  V 
D A  E  Apv 
hA  I  ^ 

In  the  example,  the  transfer  points  for  A  and  B 
should  be  false  transfer  points  and  should  point 
to  uhere  D  is  tested  (internal  false  transfer  points). 
Similarly,  D  and  E  should  point  to  where  H  is  tested, 
nie  transfer  points  for  C  and  F  shoxild  be  true  trans¬ 
fer  points  pointing  to  the  end  of  the  statement. 

The  transfer  points  for  H  and  I  should  be  false 
transfer  points  pointing  to  the  false  transfer  point 
of  the  entire  statement  (external  false  tremsfer 
point). 

Therefore,  as  part  of  the  azudysis,  the  linking 
transfer  points  must  be  determined  and  assigned 
labels  and  the  operators  must  be  adjusted  (comple¬ 
mented)  if  necessary  to  effect  the  meaning  of  the 
statement.  The  function  of  procedure  XENPT  is  to 
carry  out  this  part  of  the  analysis.  In  the  discus¬ 
sion  of  the  rules  xued  by  XFBFT  in  its  analysis  let: 

TTP  mean  the  true  transfer  point  for  the  entire 
expression. 

FTP  mean  the  false  transfer  point  for  the  entire 
expression. 

LTP  mean  a  link  transfer  point  internal  to  the 
expression. 
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The  algorithm  for  the  determination  of  the  linkage 
necessary  for  relational  statements  is: 

(1)  If  the  'anchor-point*  indicates  end-of- state¬ 
ment: 

(a)  Complement  the  relational  operator  first 
entered  in  the  IL. 

(b)  Use  FTP  as  its  transfer  point. 

(2)  Initiate  a  ric^t  forward  scan  from  the  'anchor- 
point'  searching  for  a  logical  operator  (AND 
or  or)  whose  level  is  less  than  the  level  of 
the  'anchor-point'. 

(a)  If  the  end-of- statement  is  encountered 

(1)  If  the  'anchor- point'  is  AND,  com¬ 
plement  the  last  relational  operator 
and  use  FTP  as  the  transfer  point. 

(2)  If  the  'anchor- point'  is  OR,  use  TTP 
as  the  transfer  point. 

(b)  If  the  scan  successfully  locates  an  oper¬ 
ator  which  is  identical  with  the  'anchor- 
point  ' : 

(1)  The  level  of  this  new  operator  is 
substituted  for  the  level  of  the 
'anchor-point'  and  the  scan  continues. 

(c)  If  the  scan  successfully  locates  an  oper¬ 
ator  which  is  different  from  the  'anchor- 
point  * : 

(1)  If  the  'anchor-point'  is  an  AND,  the 
relational  operator  last  entered  into 
IL  is  complemented. 

(2)  LTP  is  used  as  the  transfer  point  for 
the  last  relational  entered  in  the  IL. 

(3)  The  LTP  must  be  entered  into  the  CAT 
table  following  the  operator  located 
by  the  scan  so  that  it  will  be  entered 
into  the  IL  at  the  proper  location. 
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1.  h.  3.  2.  10. 


0 


(The  TTP  and  FTP  are  entered  into  the 
IL  in  the  noraal  course  of  processing; 
see  main- program,  region  LOW.)  (In¬ 
cidentally,  vhen  the  GAT  table  is 
made  up,  an  empty  mtry  is  included 
foUoving  each  entry  describing  an 
AID  or  OR.  It  is  in  this  entry  that 
the  LIP  is  saved.) 

6.  8.  If  the  * anchor- point  *  is  end-of- statement 
1.  Continue  processiixg  at  h. 3. 2. 10. 6. 12. 

9*  If  the  'anchor- point'  is  a  logical  operator  (and 
not  a  relational  operator  substituting  as  a  logical 
operator)  (ERAS  EQ  O) 

1.  Erase  the  entry  containing  the  AND  or  OR. 

10.  If  there  vas  a  label  saved  by  procedure  X7RFT  in 
the  entry  succeeding  the  logical  operator 

1.  Enter  the  label  into  the  IL  using  procedure 
STLE. 

11.  Continue  the  right  scan  at  h.3>2.4. 

12.  If  the  scan  performed  by  LLOC  (at  6.)  vas  unable 
to  locate  other  operators  in  the  statement  (LEFT 
LS  FIRST) 

1.  Exit 

13.  If  LLOC  did  not  locate  a  CAT  table  entry  describ¬ 
ing  an  '»' 

1.  Output  error  #31 

2.  Exit  to  the  error  exit. 

14.  If  LLOC  did  locate  an  entry  containing  the  operator 
'«'  (meaning  the  expression  belxig  processed  is  the 
last  portion  of  a  Boolean  assignment  statement) 

Note:  The  structure  of  a  Boolean  assignment  state¬ 
ment  in  the  intermediate  language  is  as  if  the 
following  JOVIAL  statements  had  been  processed  at 
the  end  of  the  relational  portion  of  the  assignment 
statement: 
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1.  h.  3. 


TIP.  BOOL  -  1  $ 

GOTO  EXIT'LABEL  $ 
FTP.  BOOL  «  0  $ 
EXIT’LABEL. 


2.  10.  6.  Ik.  1.  If  the  statement  has  a  ITP  label  (ATTP  NQ  O) 

1.  Enter  the  label  using  SHE. 


2.  Generate  an  assignment  IL  operator  entry 
(ILO  B  21). 

3.  Locate  the  position  of  the  Boolean  opexmnd 
using  procedvire  P090D. 

1|..  Enter  the  operand  using  procedure  PUTIN  and 
generate  an  operand  entry  describing  the 
constant  1. 


5.  Generate  a  label  to  serve  as  the  EXIT'LABEL. 

6.  Generate  a  GOTO  IL  operator  entry. 

7.  Generate  an  IL  operand  entry  describing  the 
EXIT'LABEL. 

8.  Set  BV  s  OLOC  for  possible  later  optimizing 
of  the  GOTO  entry. 

9.  Enter  the  FTP  of  the  statement  using  procedure 
STLE. 

10.  Generate  an  assignment  IL  operator  entry 
(ILO  »  21). 

11.  Enter  the  Boolean  operand  using  procedxire 
PUTIN  and  generate  an  operemd  entry  describ¬ 
ing  the  constant  0. 

12.  Enter  the  EXIT'LABEL  using  procedure  SHE. 

13 .  Exit . 
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1.  h.  3* 


2.  11.  Exiting  procedure 

1.  If  only  one  operator  vas  proeeased  since  the  last 
teaiporary  storage  assignawnt  (MMB  IQ  1  and  B&UTI  L8  3) 

1.  Alter  the  last  tesqporary  storage  assignment  to 
specify  result  (HE  ■  o). 

2.  If  the  amount  of  te^rary  storage  exceeds  that  of 
previous  statements  (MIUIWS  LS  HUB) 

1.  Set  MAXVS  -  NWS 

3.  Exit. 
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2.  a.  Nane  -  BD8V 

b.  Description  -  This  procedure  generates  IL  operand^  bead  and  subscript 
entries  from  CAT  table  mtrles  describing  a  beaded  or  subscripted 
variable  expression. 

c .  Parameters 

1.  Input 

1.  LLCAT  -  specifies  the  starting  CAT  table  entry  nuniber  of  the 
eoqpresslon  to  be  processed. 

2.  BDI  -  Indicates  whether  a  beaded  or  subscripted  variable 
expression  Is  to  be  processed. 

1  >  byte  eiqpresslon 

2  -  bit  expression 

0  ■  subscripted  e^qpresslon 

3.  HEm  .  Indicates  whether  the  CAT  table  entries  examined  are 
to  be  cleared. 

1  ■  do  not  clear  entry 
0  a  cleeu:  entry 

2 .  Output 

1.  eEEE  -  error  exit 

d.  LocEd  Items 


1. 

COMAS 

k. 

BD 

7. 

PIL 

2. 

NOBDS 

5. 

SUBV 

8. 

LIL 

3. 

LCAT 

6. 

PEER 

9. 

ABSI 

e.  E:qpress  Items 


1. 

NIL 

4. 

BNWS 

2. 

NWS 

5. 

CAT  table  Items 

3. 

RSLTI 

6. 

Hi  table  Items 

f.  Procedures 

called 

1 .  ERROR 
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2.  g.  Used  by 

1.  ANGHR 

2.  PUTIN 

h.  Operations 

Note:  The  procedure  recognizes  from  context  when  It  is  processing  the 
subscripted  or  beaded  variable  and  vhen  it  is  processing  the  subscript 
or  bead  expression  associated  with  the  variable.  Examples: 

SV[A+l]  -  SV  is  the  subscripted  variable 
-  A-t-1  is  the  siabscript  expression 
BYTE[A,B](VAR)  -  VAR  is  the  beaded  variable 
>  A,B  is  the  bead  e:qpression 

BITCa+IiBKsvCc])  >  SV  is  both  a  subscripted  and  a  beaded  variable 
>  A-t-l^B  is  the  bead  expression 
-  C  is  the  subscript  expression 

Furthermore,  the  procedure  expects  all  subscript  and  bead  eDqpressioxui 
to  be  or  to  have  been  reduced  to  standard  subscript  form  (see  discussion 
of  standard  s\d>scrlpt  form  in  procedure  ANGHR).  To  simplify  the  pro¬ 
cessing  of  the  various  cooibinations  included  in  the  standard  subscript, 
the  procedure  sets  up  a  typical  IL  subscript-bead  entry  having  the 
structure  of  0  +  0.  This  basic  structvire  or  shell  is  filled  in  and 
altered  according  to  the  actual  expression  processed. 

1.  If  processing  a  beaded  expression  (BD  NQ  O) 

1.  Clear  the  CAT  table  entzy  containing  bead. 

2.  Examine  each  entry  in  the  expression  by  activating  the  switch  ODCLS. 

1.  For  entries  containing  bracketers,  analyze  using  switch  BRK. 

1.  Ignore  simple  parenthesis  (CATF  EQ  0,1). 

2.  For  simple  left  brackets  (CATF  EQ  2)  or  special  left 
brackets  (CATF  EQ  8,12). 

1.  If  processing  a  subscript  expression  (BD  EQ  O) 

1.  Set  up  a  typical  IL  subscript  entzy  (ILF-ILEbI,  ILC>2). 


10  Jxily  1962 


230 


m-555/020/00 


2.  h.  2. 


.  2.  2.  If  processlxig  bead  e^qpreeslon  (BD  EQ  O) 

1.  Set  up  a  typical  IL  bead  entzy  (ILF>ILB>1,  ILC-3) 

3*  For  rlc^t  brackets  (CATF  EQ  3) 

1.  If  processing  a  bead  expression  (BD  HQ  O) 

1.  If  the  'nvmiber  of  characters'  portion  of  the 
ezqpression  Is  absent  from  the  esqpression  laqplying 
a  'nuober  of  characters'  of  1  (OCMAS  EQ  O) 

1.  Generate  a  bead  entry  specifying  a  'nxmiber  of 
characters'  of  1  by 

1.  Set  EOBDS  «  1  (DICT  entry  of  constant  l). 

2.  Set  LCAT  -  LCAT  -  1  (so  that  the  rlc^t 
bracket  entry  Is  processed  twice). 

3.  (Continue  processing  at  h.2.T.2.  (as  if  the 
right  bracket  were  a  conna). 

2.  Set  EOBDS  »  1  (DICT  entry  of  constant  O). 

2.  If  processing  a  subscript  expression  (BD  EQ  O) 

1.  If  not  processing  the  beaded  variable  (FREE  EQ  O) 

1.  Exit 

4.  FOr  8i>eclal  left  parenthesis  (CATF  EQ  8)  (the  left  paren¬ 
thesis  bracketing  a  beaded  variable) 

1.  Set  BD  =  0  SO  the  procedure  will  cease  generating  bead 
entries . 

2.  Set  SUBV  B  1  indicating  the  procedure  is  now  processing 
the  beaded  variable. 

3.  Set  PREN  B  1  to  acknowledge  recognition  of  the  left 
parenthesis . 

4.  If  more  than  2  bead  factors  have  been  encountered 
(COMAS  GR  1) 

1.  Output  error  #36 
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2.  h.  2.  1.  4.  4.  2.  Eliminate  extra  bead  factors  from  IL  table. 

S.  for  special  rlc^t  parenthesis  (CATF  BQ  9)  (the  rle^t 
parenthesis  bracketing  a  beaded  variable) 

1.  Set  FREN  ■  0  acknowledging  recognition  of  the  right 
parenthesis  of  a  beaded  variable. 

2.  Exit 

2.  For  entries  describing  statement  label  (CAIP  BQ  l)  or  subscripted 
variables  (CATF  EQ  5) 

1.  Generate  an  IL  operand  entry  from  the  Information  In  the 
CAT  table  entry. 

3.  For  entries  describing  simple  variables  (CAXF  BQ  4) 

1.  If  processing  the  beaded  varlsble  (SUBV  EQ  l) 

1.  Generate  an  IL  operand  entry. 

2.  If  an  ABS  modifier  has  been  encotintered  (ABSI  BQ  l) 

1.  Do  not  set  UB  from  CATS  (already  set  to  ABS). 

2.  If  processing  a  bead  or  subscript  expression 
1.  Generate  a  bead  or  subscript  IL  entry. 

4.  For  entries  describing  temporary  storage  (CATC  EQ  I6) 

1.  Change  the  temporary  storage  to  result  if  possible 
(CATF  EQ  NWS  and  RSLTI  LS  3)- 

2.  Process  as  simple  variable  at  h.2.3. 

For  entries  describing  constants  (CATC  EQ  3) 

1.  Set  ILE  of  the  bead-subscript  typical  entry  to  CATF  of  the 
constant . 

6.  For  entries  describing  a  subscript  (CATC  EQ  T) 

1.  If  processing  a  subscript  expression  (BD  EQ  O) 

1.  Set  SUBUI  ■  1  (indicating  the  svibscrlpt  was  used  as  a 
subscript) 


10  July  1962 


232 


TM-555/020/00 


2.  h.  2. 


6.  2.  Conqplete  the  typical  bead-subscript  IL  entry. 

7*  Ibr  entries  describing  sepazmtors  (CATC  IQ  9) 

1.  If  separators  other  than  or  (CATF  EQ  1,5) 

1.  Output  error  #32 

2.  Exit  to  the  error  exit 

2 .  POr  a  • , '  or  ' . . . ' 

1.  Initialize  a  typical  bead  or  subscript  entry  (HP  ■ 
ILE  -  1). 

2.  Maintain  a  count  of  the  nuaber  of  such  separators  in 
item  COMAS. 

8.  For  entries  describing  arithmetic  operators  (CATC  EQ  I3) 

1.  For  a  minus  or  unary  minus  (CATF  EQ  1,6) 

1.  Set  IliA  in  the  typical  bead-subscript  entry  to  1. 

2.  For  an  ABS  (^'TP  EQ  7) 

1.  Set  US  in  the  typical  bead-subscript  entry  to  6. 

2.  Set  ABSI  s  1  to  acknowledge  recognition  of  an  ABS. 

9.  For  a3J.  other  classes  of  entries 

1.  Outinxt  error  #32 

2.  Exit  to  the  error  exit 
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3.  a.  Name  -  BiTOD 

b.  Description  -  This  procedure  converts  a  binary  nuid>er  into  standard 
txtmsmission  code. 

c .  Parameters 

1.  Input 

1.  AA  >  contains  the  value  to  be  converted. 

2 .  Output 

1.  BTOD  -  contains  the  converted  nuaber. 

g.  Used  by 

1.  PRTIL  4.  PRTSR  7.  MP 

2.  PPTCT  3.  BIRQR 

3.  PRTQ  6.  WORST 

h.  Operations 

1.  Using  direct  code  converts  binary  nxmibers  to  STC. 
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4.  a.  Itame  -  EESIG 

b.  Description  -  This  procedure  analyzes  and  converts  into  IL  switch 
point  eoqiresslons  or  QOTO  expressions. 

c .  Parameters 

1.  Input 

1.  PIl  >  Specifies  the  type  esqpression  to  be  processed. 

0  >  QOTO  statement 

1  s  numerical  switch 

2  <■  item  switch 

2.  PI2  -  Specifies  the  beginning  entry  number  in  the  CAT  table 
of  the  expression  to  be  processed. 

2 .  Output 

1.  POl  -  Specifies  the  terminal  entry  in  the  CAT  table  of  the 
expression  processed. 

2.  P02  -  Error  exit 

d.  Local  items 
1.  T1 

e .  Express  Itesis 


1. 

NIL 

4. 

CAT  Table  Items 

2. 

FIRST 

5. 

Hi  Table  Items 

3. 

LAST 

6. 

DICT  Table  Items 

f.  Procedures  Called 

1.  LNGTK 

2.  STLE 

3.  ANCHR 

4.  OPND 

g.  Used  by 
1.  MB 
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U.  h.  Operations 

1.  If  the  first  entry  examined  in  a  conna  or  a  ric^t  parenthesis 
(meaning  blahk  svitch  point) 

1.  If  PIL  is  not  zero,  in  other  words  we  are  processing  a  svitdh 
point 

1.  Enter  a  generated  label  of  zero  in  the  IL. 

2.  Exit 

2.  If  a  svitch  point  is  being  processed  (PIL  not  equal  to  zero) 

1.  Activate  the  svitch  SW  to  process  the  point  by  its  dictionary 
class  (CLAS). 

1.  For  statement  labels,  close  labels  or  oxspool  program 
labels  (CLAS  EQ  l,6,ll) 

1.  Enter  the  label  into  the  IL  using  the  procedure  OPND. 

2,  ^t  OLAY  in  the  dictionary  if  the  point  being  processed 
is  a  statement  label.  (This  indicates  the  label  was 
used  in  a  switch.) 

3«  Clear  the  class  CATC  of  the  entry. 

2.  For  svitch  labels  specified  as  svitch  points  (CLAS  BQ  9^10) 

1.  Enter  a  generated  label  in  the  IL  \ising  the  procedure 
STLE 

2.  Save  the  label  in  the  CAT  table. (CATE). 

3 .  Determine  the  right  boundary  of  the  expression  using 
the  procedure  LIIGIH. 

1.  Save  the  number  of  entries  of  the  expression  in 
the  CAT  table.  (CATF). 

2.  Set  P4  from  this  value. 

3.  For  Procedure  labels  (CLAS  EQ  6) 

1.  Output  an  error  message. 

2 .  Exit . 
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4.  h.  2.  1.  4.  Fbr  all  other  claaaet 

1.  Output  an  error  message 

2.  Exit 

2.  If  the  svltch  being  processed  is  a  numeric  switch  (PIL  EQ  2) 

1.  Put  the  constant  associated  with  the  point  into  ILE  (the 
channel  of  the  constant  is  specified  in  the  item  PI2). 

3*  Exit. 

3.  If  processing  a  GOTO  (PU  EQ  O) 

1.  If  the  class  of  the  entry  (CATC)  is  sero 

1.  Exit  (means  this  entry  has  already  been  processed  as  a 
svltch  point). 

2.  If  a  label  is  associated  with  the  entry  (See  h. 2. 1.2 .2.) 


1.  Enter  the  label  into  the  IL  using  procedure  STLE. 

3.  Make  up  am  IL  GOTO  entry. 

4.  Activate  the  switch  SWl  to  process  the  CAT  table  entry  by  its 
dictionary  class  (CLAS). 

1.  For  statement  labels,  close  labels  and  compool  program 
labels  (CLAS  EQ  1,11,12)  enter  the  appropriate  label  into 
the  Hi  using  the  procedure  OPND. 

2.  For  switch  labels  (CLAS  EQ  9A0) 

1.  Slmpel  switch  expressions  are  Inserted  into  the  IL 
using  procedure  OPND. 

2.  Complex  expressions  are  processed  into  the  IL  using 
procedure  ANCHR  (the  length  of  the  expression  is 
obtained  from  the  CAT  table,  see  h.2.1.2.3«l* ) 

3.  For  procedvire  labels  (CLAS  EQ  6) 

1.  Output  an  error  message 

2.  Exit 
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U.  h.  3*  For  all  other  classes  of  entries 

1.  Output  an  error  message 


■w 
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9.  a.  Name  -  BtROR 

b.  Description  «  This  procedure  cooqposes  an  error  Message  Into  Iteai  INAGB* 

c.  Paraiseters 

1.  Iiq?ut 

1.  PU  -  ccntalns  the  nunber  of  the  error  Message. 

e .  E^g^ss  Items 

1.  ZMAOB 

2.  PROCH 

3.  1PLU3 

4.  LKAM 

3-  EBCNT 

f.  Procedures  called 

1.  BTQD 

2.  NTOI 

3.  PRUT 

g.  Used  by 

1.  MP  3-  ^OBBX  9*  PUnH 

2.  FACT  6.  ARCHR  10.  SD8F 

3.  DE8IG  7.  SSPRO  11.  ZFRPT 

4.  LRQTH  8.  P080D 

h.  Operations 

1.  Put  standard  error  message  format  into  IMACB. 

2.  Put  the  error  nuniber  plus  100  Into  IMfUZ.  (The  addition  of  100 
differentiates  aen2  errors  from  Qenl.) 

3.  If  error  occurred  during  the  processing  of  a  procedure  (PROCR  NQ  O) 
1.  Adjust  IMUa:  to  reference  the  procedure  specified  in  PROCR. 

4.  Put  the  name  of  the  last  program  label  encountered  (UMMB)  and  the 
number  of  statements  processed  since  that  label  (LPLDS)  into  IMIICBE. 

3»  If  200  errors  or  more 

1.  Put  error  #139  in  BKUZ. 

2.  Output  TMAGE  using  PRMT. 

3.  Exit  to  terminate  compilation. 

6.  Output  image  using  PRRT. 
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6.  a.  Xaae  -  FACT 

b.  Description  -  This  procedure  analyzes  the  eiqpressioas  or  factors  of  a 
FOR  statement  and  converts  the  expression  into  IL. 

c .  Parameters 

1.  Input 

1.  PI  -  Contains  the  GAT  table  entry  number  of  the  starting 
position  of  the  section  of  IL  to  be  processed. 

2.  P2  -  Contains  'Uie  value  of  the  operator  (L0D,I1IC,T8T)  vhich 
is  to  be  Inserted  in  the  IL. 

2 .  Output 

1.  P3  -  Indicates  the  delimiter  at  the  end  of  the  esqpression 

1  >  coioma 

0  «  $ 

2.  P4  -  Specifies  the  terminating  entry  in  the  CAT  table  of  the 
eiqpression  precessed. 

3.  P5  -  Error  exit 

d.  Local  items 
1.  T3 

e .  Express  items 


1. 

NIL 

4.  FIRST 

7.  IL 

2. 

OLOC 

5.  LAST 

3. 

CAT 

6.  SRTD 

f.  Procedures 

ceiLled 

1.  OPND 

2.  ANGHR 

g.  Used  by 
MB 
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6.  h.  Operations 

1.  The  boundaries  of  the  expression  are  detemined. 

1.  A  forward  seen  is  performed. 

1.  The  pushed  down  counter  T3  is  used  to  reco^xite  when  the 
scsn  is  inside  or  outside  bracketed  eiqpressions. 

2.  Entries  within  bracketed  exgpressions  are  ignored. 

3.  The  scan  is  terminated  on  a  cosna  or  $  (encountered  outside 
of  a  bracketed  exq^ression). 

4.  Output  item  P3  is  set  to  a  one  if  the  terminating  sysibol 

is  a  comna,  or  a  zero  if  the  terminating  symbol  is  a  dollar 
sign. 

5.  If  250  entries  are  examined  without  success 

1.  Output  error 

2.  Exit 

2.  The  Isolated  expression  is  converted  into  IL. 

1.  Procedure  OPND  is  used  to  put  simple  exQxressions  into  the  IL. 

2.  Procedure  ANGER  converts  complex  expressions  into  IL. 

3>  The  operator  supplied  in  Pn  is  entered  into  the  IL  entry  specified 
by  the  item  OLOC.  (This  item  is  set  by  the  procedure  itself  if  it 
puts  the  operand  in  using  OPND;  otherwise  the  item  is  set  by  ANGER. ) 
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7.  «.  Hams  -  BOLLS 

b.  Deacriptjyon  -  This  procedure  converts  stsooderd  trensmisslcm  chnreeters 
Into  Hollerith. 

c .  Pareneters 

1.  Liput 

1.  TO  -  contains  the  characters  to  be  converted. 

2.  HO  -  contains  the  number  of  characters  to  be  converted. 

2 .  Output 

1.  HL  -  contains  those  characters  of  TO  which  were  converted. 

d.  Local  Item 
1.  TTOH 

g.  Used  by  FRRT 

h.  Operations 

1.  Starting  with  character  0  of  TO,  convert  the  number  of  characters 
of  TO  specified  by  HO  Into  Hollerith  code  locating  the  converted 
characters  In  HL  starting  at  character  position  0. 
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7.  a.  Name  -  HOUB 

b.  Dascriptim  -  This  procedure  converts  standard  transmission  characters 
Into  Hollerith. 

c .  Parameters 

1.  Input 

1.  TO  >  contains  the  characters  to  be  converted. 

2.  HO  -  contains  the  number  of  characters  to  be  converted. 

2.  Output 

1.  HL  -  contains  those  characters  of  TC  vhlch  were  ccmverted. 

d.  Local  Item 
1.  TTOH 

g.  Used  by  FBNT 

h.  Operations 

Starting  vlth  character  0  of  TC,  convert  the  number  of  characters 
of  TC  specified  by  HO  into  Hollerith  code  locating  the  converted 
characters  In  HL  starting  at  character  position  0. 


1. 
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8.  a.  Name  -  IFO 

b.  Description  -  This  procedure  generates  IL  'DifonBatlcm'  type  entries 
%dilch  supply  the  l>ounda^  IL  entry  nuaibers  of  a  relational  stateswnt 
referring  to  the  label  preceding  the  ' Difomation '  entries. 

e.  Express  Items 

1.  IL  table  items 

2.  DMl  table  items 

g.  Used  by 
1.  MP 

h .  Operations 

1.  Generate  the  'Information*  operator  and  operand  IL  entries  locating 
the  entries  at  the  entry  specified  by  Nni-M  (this  facilitates  the 
automatic  erasing  (by  new  entries  added  to  the  IL  table)  of  the 
'information*  entries  when  they  are  not  required). 
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9.  a.  Name  -  lUJF 

b.  Description  -  This  procedure  converts  the  code  (ILD)  and  channel 
(njP)  of  an  IL  entry  into  a  format  for  outputtl^. 

c .  Parameters 

1.  nfF  -  contains  the  IL  entry  number  of  the  entry  to  be  processed. 

2.  FQtSI  -  contains  the  starting  character  position  in  IMAGB  into 
\th±ch  the  formatting  is  to  be  done. 

e .  Kjqpress  items 

1.  IMAGE 

2.  IL  table  items 

3.  STSD 

k,  8TID 

f.  Procedures  called 

l.  HTOI 
2.  BTOD 

g.  Used  by 
1.  PRTIL 

h.  Operations  - 

1.  If  the  code  is  dictionary  (ILD  EQ  O) 

1.  Format  the  name  using  procedure  NTOI. 

2.  For  all  other  codes 

1.  Put  the  actual  code  name  into  BtACS 

2.  If  the  code  is  subscript  (nj)  *2) 

1.  Put  the  name  of  the  subscript  into  INA(S 

3.  For  all  other  codes 

1.  Put  the  value  of  nf  directly  into  IMAOSE 
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10.  a.  Haae  -  ZMEKi 

b.  Description  -  This  procedure  SMkes  entries  In  that  part  of  the  UKi 
table  reserved  as  the  teaporary  push-down  q|ue\ie  (entries  1  and  2). 

The  entries  are  made  depending  on  the  type  of  delayed-processlng 
required  by  certain  statements. 

c .  Parameters  - 

1.  Input 

1.  Pn  -  specifies  the  type  of  statement  requiring  delayed-pro¬ 
cesslng. 

0  -  FOB  statement  3  ■  (MUF  statement 

1  -  Procedxire  or  Close  declaration  4  -  iniEH  statement 

2  ■  IF  statement 

2.  PI2  -  the  content  depends  on  the  type  of  entry  (PH) 

pn  EQ  0  -specifies  the  SRT  channel  number  associated 

with  the  FOR 

PI2  Si  1  -specifies  the  exit  label  for  the  procedure  or 

close 

P12  SQ  2>3A  -specifies  the  false  transfer  point  associated 
with  the  statement 

e .  Siq)ress  Items 

1.  IIE8I  k.  HIL  7-  SEMC 

2.  POLOC  5*  KDRQ  8.  WH  table  Items 

3.  LOG  6.  8TPC 

I 

g.  Used  by: 

1.  HP 

h.  O^ratlons 

Hote;  In  order  for  the  push-down  list  to  function,  properly,  It  Is 
necessary  that  entries  be  made  In  a  temporary  push-down  quern  before 
being  put  Into  the  noxmal  push-down  list'.'  This  permits  statements 
requiring  delayed-processlng  to  be  used  successively  and  yet  to  have 
their  delay-processing  performed  one  stateswnt  later.  (If  It  were  not 
done  this  vay,  the  second  statement  roqulrlnjg  the  delay^-processlng 
would  cause  tto  first  statement  to  be  pushed  down  ^  the  list  and  not 
to  come  out  until  the  second  statement's  delayed-processlng  was  completed.) 
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The  use  of  the  temporary  queue  also  allows  a  statement  to  be  used  imme¬ 
diately  preceding  the  END  terminating  a  congpound  statement. 


10.  h.  1.  Clear  next  DBQ  table  entry 


2.  If  the  type  of  entry  is  FOR  (PIL  SQ  O) 


1.  Set  IRQB  <■  1  to  initialize  the  count  of  the  number  of  FOR 
statements  associated  with  this  Klft  entry. 


2.  Step  REST  to  keep  a  running  count  of  the  nuidjer  of  active 
subscripts . 

3.  If  the  type  of  entry  is  to  be  procedure  or  close  (PH  EQ  l) 

1.  Set  raQI  -  GLAB>  the  exit  label  for  the  procedure  or  close. 

2.  Set  PLOC  to  the  IRQ  entry  number  of  the  entry  currently  being 
filled. 

4.  If  the  type  of  entry  is  to  be  IF,  IFEITH,  ORIF  (PIL  BQ  2,3,4). 

1.  Set  IK<QI  «  LOC.  (LOC  contains  the  IL  entry  number  of  the  first 
IL  entry  associated  with  the  IF,  IFEITH,  ORIF  statement.) 

5.  Congplete  the  DHQ  entry  with  the  standard  items. 


6.  If  the  entry  Just  made  in  the  DBQ  table  has  a  type  of  IF  (Pn  EQ  2), 
the  preceding  entry  has  a  type  of  IF  (OBQA  EQ  2),  there  have  been  no 
intervening  statements  processed  between  the  making  of  the  two  HRQ 
entries  (DBQC  BQ  CROC  -  l)  and  the  two  statements  associated  with 
the  DHQ  entries  are  in  the  same  congpound  statement  (DRQB  EQ  STPC) 
meaning  there  were  two  IF  statements  in  a  row) 


Exchange  the  two  DBQ  entries  so  that  the  delayed-processing 
will  be  performed  at  the  rl^t  time. 


1. 
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2lt6 

11  •  ft*  NftiBB  ••  UOC 

b.  Description  -  This  procedure  makes  ft  bftckvftrd  scan  thru  the  CAX  table  ' 

seerching  for  an  entry  having  ft  level  (CATB  not  eq]Uftl  to  O). 

c .  Fftrameters  f 

1 .  Input  ^ 

1.  BLOC  >  Beginning  entry  number  in  the  CAT  table  for  the  seen.  1 

2.  Output 

t 

1.  UjO  -  Entry  number  of  the  entry  et  vhlch  the  scan  vfts  terminated . 

e.  Express  items  j 

* 

1.  FIRST 

“1 

2.  CATB 

g.  Used  by: 

i 

1.  AHCHR 

2.  LVLCP 

h.  Operations 

1.  Scans  backward  looking  for  an  entry  containing  a  level  (CATE  not 
equal  to  O). 

1.  Terminates  if  scan  is  successful. 

2.  Terminates  the  scan  if  it  reaches  an  entry  number  which  is  less 
than  that  number  specified  in  item  FIRST  (scanned  to  the  beginning 
of  the  statement). 


I 
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12.  a.  Name  -  IKGTH 

b.  Description  -  This  procedure  scans  the  CAT  teble  looking  for  a  consa 
or  a  dollar  sign. 

c .  Parameters 

1 .  Input 

1.  PU  -  Contains  the  entry  number  in  the  CAT  table  of  the 
starting  position  for  the  scan. 

2.  Output 

1.  •  Set  to  the  number  of  entries  scanned  by  the  procedure. 

2.  PI2  -  Sipeclfies  the  terminal  entry  in  the  CAT  table  of  the 

expression  scanned. 

d .  Local  items 
1.  T1 

e .  Express  items 

1.  CAT  table  items. 

g.  Used  by: 

1.  MB 

2.  DESIG 

h .  Operations 

1.  Scan  forward  in  the  CAT  table. 

2.  Use  the  push-down  counter  T1  to  recognize  >rtien  the  procedure  is 
scanning  within  a  bracketed  expression. 

1.  The  sceuanlng  process  Ignores  all  entries  within  a  bracketed 
expression. 

3.  Searches  for  a  comma,  or  a  )  preceded  by  a  $. 


1.  Successful  search. 
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12.  h.  3«  !•  1*  nvndsar  of  entries  exeained  Is  cosqputed. 

2.  The  procedxire  exits. 

2.  Uhsuccessful  search. 

1.  An  error  nessage  is  printed. 

2.  Procedure  exits. 

(If  250  entries  are  exasdnad  without  success,  the  search 
is  ccmsidered  unsuccessful.) 


I 
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I 
I 
I 

13.  a.  Haaie  >  LVLCP 

I  b.  Description  -  This  proced\u«  attenpts  to  locate  an  'anchor-point*. 

I  c .  Parameter 

'  1 .  Output 

1.  I£V  -  0  means  two  levels  were  found  but  no  'anchor-point*  was 
determined;  1  means  two  levels  were  found  idilch  did  determine 
an  'anchor-point';  2  means  the  end-of -statement  vas  encountered 
thus  making  an  'anchor-point';  3  means  the  scan  proceeded  to 
the  beginning  of  the  statement  without  encoxmterlng  a  level. 

e .  Express  items 

1.  .IXFT 

2.  RIGHT 
3>  RSLT 

4.  CAT  table  items 

f.  Procedures  called 

1 

1.  LI/)C 

g.  Used  by: 

1.  AHCHR 

h.  Operations 

1.  Conmience  scan  at  the  entry  specified  in  the  item  RIOHI. 

2.  Use  the  procedure  LLOC  to:  locate  an  operator -with  a  level  or  to 
recognize  that  there  are  no  more  operators  within  the  statement. 

3.  If  the  procedure  recognizes  that  it  is  commencing  outside  of  the 
statement  (RIGBT  is  greater  than  LAST,  l.e.,  at  the  $). 

1.  If  LLOC  stopped  on  an  'OF*  (CATC  EQ  13;  CATF  EQ  ^). 

1.  If  RSLT  does  not  eqjaal  zero  (meaning  that  a  temporary 
working  storage  assignment  could  be  made). 

1.  The  temporary  assignment  is  forced  by  setting  RICHE 
equal  to  the  value  of  RIGHT  minus  1,  setting  LBV  ■  0. 


2.  Exit. 
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13.  h.  3*  2.  If  RSUT  eq^Mls  0 

1.  ICV  is  set  to  2. 

2.  Bxlt. 

4.  If  the  procedure  recognises  that  no  other  levels  vers  meountered 
by  the  procedure  ULOC  (IBT  is  less  than  FIRST). 

1.  ISV  is  set  to  3. 

2.  If  the  procedure  started  vitlt  an  entry  containing  a  consw  or 
a  ri^it  bracket  having  a  level  greater  than  20. 

1.  This  level  is  cleared  to  0  (this  type  of  bracket  is  only 
to  be  used  as  an  'anchor-point'). 

2.  If  a  teiaporary  working  storage  assignsMnt  can  be  made 
(B8LT  does  not  eq^al  O). 

1.  USV  is  clunged  to  0. 

3.  Ixit. 

5.  If  the  level  on  the  operator  located  by  procedure  LLOC  is  less 
than  the  level  on  the  operator  specified  in  RIOBT  (thus  Indicating 
no  'anchor-point') 


1.  IXV  is  set  to  0. 

2.  Processing  proceeds  with  h.U.2. 

6.  If  the  level  of  the  operator  located  by  procedure  LLOC  is  greater 
than  the  level  specified  by  RIDBI  (this  determines  an  'anchor- 
point') 

1.  A  teiqporary  storage  assignment  is  forced  if  such  an  assignment 
can  be  made  (R8LI  did  not  eqjoal  O).  This  forcing  is  done 
under  two  conditions:  Condition  1:  The  operator  on  the  left, 
l.e.,  the  operator  located  by  the  procedure  LLOC, ' describes  an 
OF,  of  Condition  2:  The  operator  on  the  left  and  the  operator 
on  the  rl£lit,  l.e.,  the  operator  with  which  the  procedure 
started,  are  both  relational  operators. 

1.  IJEV  is  set  to  0. 

2.  RKST  is  set  to  a  value  of  RSfflT  minus  1. 
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3.  Exit. 

UBV  is  set  to  1. 
Procedure  exit. 
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lif.  a.  Name  -  NTOI 

b.  Description  -  This  procedure  obtains  the  name  of  a  variable  described 
in  a  DICT  table  entry  from  the  item  lEHS  and  places  it  into  the  item 
INMZ. 

c .  Parameters 

1.  Pn  -  Contains  the  DICT  entry  nuBber  of  the  variable  to  be  pro¬ 
cessed. 

2.  P12  -  Contains  the  starting  character  position  in  IMACaS  into  vhich 
the  name  is  to  be  placed. 


e. 

Biqpress  items 

1. 

IMAGE 

2. 

HUS 

3. 

DICT  table  items 

f. 

Procedures  called 

1. 

BTOD 

8* 

Used  by: 

1. 

PBIIL 

2. 

IBRGB 

3. 

woRar 

h. 

Operations 

1.  If  the  DICT  entry  does  not  specify  a  name  (FCHB  IQ  0  or  NCHB  IQ  O) 

1.  Substitute  the  DICT  entry  number  for  the  name. 

2.  Exit. 

Obtain  the  name  (or  the  first  10  characters  thereof)  and  put  it 
into  DIAGB. 


2. 
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1^.  a. 

b. 

c. 


e. 


8* 

h. 


Nwe  -  QFHD 

Description  -  This  procedure  converts  an  entry  of  the  CAS  table 
specifying  a  dictionary  referenced  variable  or  a  subscript  Into  an  IL 
operand  entry. 

Parameters 

1.  Input 

1.  PI  -  Entry  nuaber  of  the  IL  table 

2.  P2  -  Entry  nuaber  of  the  CAT  table 
Elvress  Items 

1.  IL  table  Items 

2.  CAT  table  Items 
Used  by; 

1.  HB 

2.  ntSIG 

3.  FACT 

Operations 

1.  Determine  the  proper  setting  of  ILC  frost  the  class  (CATC)  of  the 
CAT  table  entry. 

2.  Set  the  rest  of  the  items  in  the  IL  entry  frost  their  corresponding 
items  in  the  CAT  entry. 
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16.  a.  Name  -  QFfN  (Boolean  Function) 

b.  Oeserlption  -  This  procedure  is  used  to  detemine  the  poeolbllity  of 
ellalnating  a  0010,  im  or  BRUM  statewnt  or  c^ialstng  a  tmsfer 
Inplled  by  such  a  stateaent  by  effecting  the  loplied  transfer  throu^ 
the'  alteration  of  transfer  points  contained  In  IL  '0010'  entries  having 
generated  ISbels  as  transfer  points  or  IL  'relational'  entries. 

c .  Parameters 

1.  Input 

1.  PH  •  Specifies  the  Isbel  (either  by  nusher  for  generate 
labels  or  by  DICT  entry  nunber  for  progrm  labels)  to  be  con¬ 
sidered  In  the  optlalzixiig  process. 

2.  PI2  -  Identifies  the  type  of  label  contained  in  PH. 

0  «  statement  label 
1  •  generated  label 

2.  Output 

1.  OFOM  -  Indicates  ytma  a  GOTO,  TEBS  or  RIIUIDI  statement  can  be 
eliminated. 

0  >  do  not  eliminate 
1  >  eliminate 

d.  Local  Items 

1.  RUL 

2.  GO 

3.  GOI 

4.  IPOI 

e .  Eigpress  Items 

1.  NIL 

2.  IL  table  Items 

g.  Used  by: 

1.  MP 

h.  Operations 
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16.  h.  1.  Perform  a  backward  scan  throu^  the  IL  table  examining  operator 
entries  (ILC  -  O). 

1.  The  scan  connences  vlth  the  entry  specified  by  the  Item  HIL 
plxis  l(thus  permitting  '  Infoxmatlon '  entries  Inserted  In  the 
IL  Just  prior  to  tht  operation  of  this  procedure  to  be  con¬ 
sidered). 

2.  For  'relational*  entries  (ILO  IS  7) 

1.  If  the  entry  has:  not  been  Involved  In  an  optimizing  process 
previously  (ILR  EQ  O)  and  If  the  only  other  entries  (if 
there  were  any)  thus  far  encountered  In  the  scan  vere 

'  Lif ormatlon *  entries 

1.  The  operator  Is  coogplemented 

j£  set  to  QQ  OR  set  to  lA 

EQ  set  to  NQ  HQ  set  to  EQ 

lA  set  to  OR  QQ  set  to  LB 

2.  The  transfer  point  In  PIL  and  PI2  Is  substituted  for 
the  original  transfer  point. 

3.  nil  Is  set  to  1  (to  prevent  double  optimizing). 

4.  OFTM  is  set  to  1. 

2.  Exit. 

3.  For  'Information*  entries  (ILO  EQ  34) 

1.  If  the  preceding  entry  contains  a  label  (ILO  EQ  16) 

1.  Exiunlne  the  region  of  the  IL  specified  In  the 
'Information*  entries. 

1.  Substitute  the  transfer  point  In  PIl  and  FI2  for 
each  transfer  point  specifying  the  label  associ¬ 
ated  with  the  ' Ihformatlon '  entries. 

2.  Clear  the  entries  contednlng  the  Infoxmatlon  and 
Its  associated  label. 

4.  For  'GOTO*  entries  (ILO  EQ  1^) 

1.  If  the  transfer  point  Included  In  the  entry  describes  a 
statement  label,  program  label  or  generated  Itfdel. 
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16.  h. 


1.  4.  1.  1.  Set  item  GO  to  1  (as  a  possible  lndlcatl<»i  of  two 
GOTO  statements  in  a  rov). 

2.  Set  item  GOI  to  1  indicating  a  non>label  entry  vas  examined. 

5.  For  'Ounny  TST*  entries  (ILO  EQ  2$,  nx  IQ  O). 

1.  Proceed  as  in  h.1.4.2. 

6.  For  'Lsbel*  entries  (ILO  EQ  I6). 

1.  Step  counter  NUL. 

7*  For  all  other  operator  entries 

1.  If  no  labels  have  been  encountered  (ELBL  EQ  0)  and  a  0010 
entry  vas  encountered  (GO  EQ  l) 


1.  Set  OFIM  to  1. 
2.  Exit. 


I 
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17.  a.  Name  -  FO0QD 

b.  Description  -  This  procedure  iMdces  a  baekvard  scan  thru  the  GAT  table 
searching  for  the  beginning  of  an  operand  to  be  placed  In  the  IL. 

c .  Parameters 

1 .  Output 

1.  ODP  •  Sjpeclfles  the  GAT  table  entry  at  which  the  scan  vas  termi¬ 
nated. 

e .  Express  Items 

1.  MID 

2.  FIRST 

3<  GAT  table  Items 

f.  Procedures  called 
1.  ERROR 

g.  Used  by: 

1,  ANCHR 

h.  Operations 

1.  The  procedure  comaences  Its  scan  at  the  entry  number  specified  in 
the  Item  MID. 

2.  If  the  scan  proceeds  to  an  entry  less  than  that  entry  specified 
in  the  item  FIRST  (scanned  to  the  beginning  of  the  statement) 

1.  Output  error  #30. 

2.  Exit. 

3.  If  a  bracketer  Is  encountered  as  the  first  entry  examined 

1.  If  the  bracketer  is  a  rie^t  bracket 

1.  The  scan  looks  for  an  entry  describing  a  subscripted 
variable  (GATC  EQ  ^). 


2. 


Proceed  at  h.4.1. 
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17.  h. 


3>  2.  If  the  hraeketer  encountered  is  a  rl^t  parenthesla 

1.  The  scan  proceeds  to  search  for  a  head-type  entry  {CKSC  IQ  I6) 

2.  Proceeds  at  h.4.1. 

For  all  other  cases 

1.  OOP  Is  set  to  the  value  of  the  last  channel  examined  minus  1. 

2.  The  procedure  exits. 


I 


10  July  1962 


259 


m.555/020/00 


18.  a.  Name  -  FFTCT 

b.  Description  -  Ihls  procedure  fonaats  and  outputs  entries  froai  the  CAT 
table. 

e.  Express  Items 

1.  IMACSB 

2.  CAT  table  items 

f.  Procedures  called 

1.  BTOD 

2.  FRNT 

g.  Used  by: 

1.  ANCHR 

h.  Operations 

1.  Clears  IMACB. 

2 .  Outputs  title . 

3.  Formats  entries  Into  Item  IMAGE. 

4.  Outputs  IMAGE. 
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19 •  a*  Name  -  PRNT 

b.  Description  -  ISils  procedure  outputs  the  Iten  INMSS  Into  the  file 
DEBUG. 

e .  Esqpress  Items 

1.  IMACaE 

f.  Procedures  called 

1.  HOLLS 

g.  Used  by: 

1.  PRTIL  4.  PPTCT 

2.  FETSR  5*  W»8T 

3.  FRTQ 

h .  Operations 

1.  Using  procedure  HULLS,  convert  the  Item  IKACB  from  SIC  to  Hollerith 
code. 

2.  Output  the  Item  IMAQB. 

3.  Walt  until  the  outputting  Is  finished. 

4.  Clear  item  IMAGE  to  blank  characters. 
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20.  a.  name  -  ROHD 

b.  Saacrlptlon  -  This  proeadure  outputs  a  foiaattad  boadlas  for  the  IL, 
SRI  and  SRQ  tables  and  the  starting  level  of  voxhing  storage. 

c .  Paraneters 
1 .  Input 

1.  PIl  -  Specifies  the  heading  to  be  printed. 

0  B  IL  heading 

1  ■  SRI  heading 

2  a  nQ  heading 

3  ■  working  storage  heading 

e.  l^qiress  itasw 
1.  ntfuJE 

f.  Procedwes  called 
1.  PRUT 

g.  Used  by: 

1.  HORST 

2.  MB 

h.  Operations 

1.  Clear  UMOI. 

2.  Force  heading  to  appear  at  the  top  of  a  new  page. 

3*  Put  heading  Into  IMAGE. 


J 
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21.  a.  Naae  -  FBTIL 

b.  Description  -  This  procedure  fozvats  into  iteai  INMSI  entries  from  the 
IL  table  for  printing. 

c .  Parameters 

1.  Input 

1.  PIl  -  Specifies  the  IL  entry  number  of  the  first  entry  to  be 
processed. 

2.  PI2  >  Specifies  the  IL  entry  nuiA>er  of  the  last  entry  to  be 
processed. 

e .  Esqpress  items 

1.  STIO  4.  STIB  7.  XNAGE 

2.  STIC  5.  PRCL 

3.  STIH  6.  IL  table  items 

f.  Procedures  called 

1.  ILDP  4.  PIOIT 

2.  BTOD 

3.  HTOI 

g.  Used  by: 

1.  MP 

h .  Operations 

1.  Clear  BUQE 

2.  For  operator  type  entries  (ILC  >  O) 

1.  Format  entry  into  left  half  of  HtdOB  (characters  1  -  35)* 

3«  For  operand,  bead  and  subscript  entries  (ILC  ■  1,2,3) • 

1.  Format  entry  into  right  half  of  IMAOB  (characters  36  <•  71)* 

4.  Put  the  entry  nuaiber  into  INdOE. 

5.  If  the  IL  represents  a  i^cedure  (PRCD  HQ  9000). 


] 

] 

] 

1 

J 

3 

] 

3 

[i 

I 

1 

1 
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21  h.  5- 
6. 


1.  Put  the  neae  of  the  procedure  into  XNACB. 
Output  IMAGE  using  FRET. 
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22.  a.  Maae  -  FRTQ 

b.  Description  -  This  procedure  fornats  into  iten  DMCS  entries  fron  the 
SBQ  table. 

c .  Parameters 

1.  PIl  -  Contains  the  ntQ  entry  nuniber  of  the  first  «itry  to  be 
processed. 

2.  PI2  -  Contains  the  IBQ  entry  number  of  the  last  entry  to  be 
processed. 


e. 

Express  items 

1. 

STQA 

2. 

IMAGE 

3. 

DRQ  table  items 

f. 

Procedures  called 

1. 

BTOD 

2. 

PRUT 

Used  by: 

1. 

MB 

h. 

Operations 

1. 

Clear  item  IMAGE. 

2. 

Format  an  entry  into  IMAGE. 

3. 

Output  IMAGE  using  FRET. 
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23.  •.  RBMe  -  FRISR 

b.  Description  -  This  praeedure  fomats  into  itaa  miGB  entries  fron  the 
SRT  table. 

c .  Faranetere 

1.  Input 

1.  PU  >  Oontaina  the  SRI  entry  nuribar  of  the  first  entry  to  be 
processed. 

2.  PI2  •  Ciontains  the  SRI  entry  nwiber  of  the  last  entry  to  be 
processed. 

e.  Ijqprees  itena 

1.  INMB 

2.  SI8D 

3.  SBT  table  itens 

f.  Procedures  called 

1.  REOD 

2.  PRHT 

g.  Used  by: 

1.  NB 

h.  Operations 

1.  Clear  iten  INMl. 

2.  Ibxmt  an  entry  into  niMH. 

3.  Output  DMOE  using  PRRT. 
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24.  a.  ftamB  -  FUTIH 

b.  Description  -  This  procedure  generates  XL  operand  entries  from  simple 
operands  described  in  the  CAT  table.  It  also  recognizes  complex 
operands,  either  subscripted  or  beaded  variables,  and  used  procedure 
BDSV  to  enter  these  complex  operands  into  the  IL. 

c .  Parameters 


1.  Input 

1.  CATPS  -  Specifies  the  starting  CAT  table  entry  of  the  expres¬ 
sion  to  be  processed. 

2.  DELET  -  Indicates  whether  the  entries  examined  are  to  be 
cleared. 

1  =  do  not  clear 
0  «  clear 

2 .  Output 

1.  XXX  -  Error  exit. 

d.  Local  items 

1.  CTPOS 

2.  BDIND 

e .  Express  items 


1. 

NIL 

4. 

BNWS 

2. 

NWS 

5. 

CAT  table  items 

3. 

RSLTI 

6. 

IL  table  items 

f.  Procedure  called 

1 .  ERROR 

2.  BDSV 

g.  Used  by: 

1.  ANCHR 

h .  Operations 

1.  Examine  each  entry  by  class  (CATC)  using  the  switch  CLASS. 
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24.  h.  1.  1.  Ibr  entries  containing  statement  labels  (CATC  EQ  l) 

1.  If  the  next  CAT  table  entry  describes  a  left  bracket 
(CATC  EQ  10,  CAT?  EQ  3)  meaning  this  label  is  a  switch. 

1.  Use  procedure  BD3V  to  process  the  eiqpresslon. 

2.  Exit. 


2.  Generate  an  IL  operand  entry  from  the  information  in  the 
CAT  table  entry. 

3.  Exit. 

2.  For  entries  desciriblng  a  file,  constant,  simple  variable,  or 
procedure  (CATC  EQ  2, 3, 4,6) 

1.  Generate  an  IL  operand  entry  from  the  information  in  the 
CAT  table  (ILD  «  O). 

2.  Exit. 

3.  For  entries  describing  a  subscripted  variable  (CATC  EQ  5) 

1.  Use  procedure  BD6V  to  process  the  expression. 

2.  Exit. 

4.  FOr  entries  describing  a  subscript  (CATC  EQ  7) 

1.  Genezate  an  IL  operand  entry  describing  the  subscript 
(ILD  -  2). 

2.  Exit. 

5.  For  entries  containing  bracketers  (CATC  EQ  10) 

1.  Clear  the  entry  if  it  describes  a  parenthesis. 

6.  For  entries  describing  a  bead  (CATC  EQ  I6) 

1.  Use  procedure  BDSV  to  process  the  e^qpression. 

2.  Exit. 

7.  For  entries  describing  a  temporary  storage  (CATC  EQ  I8) 
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2U.  h.  1.  7*  !•  Alter  the  aseignaent  to  specify  result  if  possible 

(CATF  EQ  NWS  and  RSLTI  LS  3)- 

1.  Set  BNWS  >  1  to  acknowledge  the  change. 

2.  Generate  an  IL  operand  entry  specifying  the  tonporaxy 
storage  (ILD  »  3% 

3.  Exit. 

8.  For  entries  describing  a  generated  label  (CATC  EQ  I9) 

1.  Generate  an  IL  operand  entry  describing  the  generated 
label  (ILD  »  1). 

2.  Exit. 


9.  For  entries  describing  a  direct  code  assignment  operand 

(CATC  EQ  20) 

1.  Generate  an  IL  operand  entry  specifying  a  temporary 
storage  of  result  (ILD  =  3,  ILF  ■  O). 

2.  Set  ILE  a  CATF  specifying  the  nuoiber  of  bits  to  the  rlc^t 
of  the  binary  point  (all  ones  for  floating  point). 

3.  Set  ILY  s  1  Indicating  that  this  entry  was  generated  from 
a  direct  code  assignment. 

4.  Exit. 

10.  For  entries  describing  other  classes 

1.  Output  error  #32. 


2. 


Exit  to  the  error  exit. 
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25*  a.  Kama  -  SRCHL 

b.  Description  -  Dhis  procedure  nades  a  backward  scan  throu^  a  statement 
searching  for  a  logical  operator  or  an  17,  IF2I1H,  or  an  0R17  se¬ 
quential  operator. 

c .  Parameters 

1 .  Input 

1.  LOCO  -  Contains  the  starting  CAT  table  entry  number  for  the 
scan. 

2 .  Output 

1.  LSSCH  -  Indicates  if  the  seem  was  successful. 

1  >  successful 
0  *  unsuccessful 

2.  XXX  >  error  exit. 

d.  Loced  itens 
1.  LOC 

e .  Ejqpress  items 

1.  FIKST 

2.  CAT  table  items 

g.  Used  by: 

1.  ANCKR 

h.  Operations 

1.  nie  boxmdarles  for  the  seem  eu:e  specified  in  items  LOCC  (the 
starting  entry  number)  and  FIRST  (the  terminating  entxy  nunber). 

2.  Examine  each  entry  by  class  (CATC). 

1.  If  an  entry  contains  a  sequential  operator  or  a  logical 
operator . 


1.  LSRCH  is  set  to  1 


r 
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25.  h.  2.  1.  2.  Exit 


2.  If  an  entry  contains  an  equal  or  exchange  operator 
1.  The  scan  is  terminated  unsuccessfully. 

3.  If  an  entry  contains  a  left  parenthesis 

1.  If  the  entry  is  preceded  hy  a  rif^t  bracket  or  an  "OF" 
(CATC  EQ  13>  CATP  EQ  5) 

1.  The  scan  terminates  \msuccessfully. 

2.  The  scan  continues. 

4.  If  other  than  the  above  mentioned  operators  are  encountered 
during  the  scan,  the  error  exit  is  taken. 


1 

I 

1 

1 

I 

I 

1 


I 
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26.  a.  Haae  -  SStCHR 

b.  Description  -  Ihis  procedure  nadee  a  forward  scan  thru  a  JOVIAL 
statement  or  phrase  searching  for  a  logical  operator. 

c .  Parameters 

1 .  Input 

1.  LOCO  -  Contains  the  starting  CAT  table  entry  number  for  the 
scan. 

2 .  Outinit 

1.  RSRCH  -  Indicates  if  the  scan  was  successful.  0  means  un> 
successful,  1  means  successful,  2  means  unsuccessful  and  that 
the  scan  was  tenslnated  at  a  $,  or  else  that  the  scan  was 
coomenced  from  within  a  procedure  call. 

2.  XXX  -  error  exit. 

d.  Local  items 

1.  LOG 

2.  PRI 

3.  HCI 

e  •  E:q;n:es8  items 

1.  CAT  table  items 

2.  LAST 

g.  Used  by: 

1.  ANCHR 

h.  Operations 

1.  If  the  procedure  scans  to  an  entry  ntaiber  which  is  greater  than 
the  entry  specified  in  lAST  (scanned  to  the  end  of  the  statement) 

1.  RSRCH  is  set  to  2. 

2.  Exit. 

Examine  each  entry  by  class  (CATC). 


2. 


10  July  1962 


272 


m-555/020/00 


26.  h.  2.  1.  Analysis  of  bracketers  (CATC  BQ  lO) 

1.  Use  the  push-down  counter  BKI  and  the  parenthesis  Indicator 
FRI  to: 

1.  Recognize  the  right  parenthesis  terminating  a  pro¬ 
cedure  call  or  terminating  the  object  of  a  bead 
(meaning  that  the  procedure  has  commenced  Its  scan 
i^thln  a  procedure  call  or  within  the  object  of  a 
bead) . 

1.  Set  R^CH  equal  to  2. 

2.  Exit. 

2.  Recognize  when  the  procedure  Is  scaimlng  within  a 
siibscrlpt  expression  or  within  a  procedure  call. 

1.  All  entries  within  a  subscript  expression  or  a 
procedure  call  are  ignored. 

2.  If  a  dollar  sign  Is  encountered  in  the  scan  (CATC  EQ  9/ 

CATP  EQ  4) 

1.  RSRCH  Is  set  to  2. 

2.  Exit. 


3.  If  an  OF  is  encountered  (meaning  the  scan  commenced  within  a 
procedure  call)  (CATC  EQ  13,  CATF  EQ 

1.  FRI  is  set  to  1  (so  that  the  parenthesis  around  the  call 
euid  the  contents  of  the  call  will  be  Ignored). 

4.  If  a  logical  operator  is  encountered  (CATC  EQ  U) 

1.  RSRCH  is  set  to  1  (meaning  that  the  scan  Is  successful). 

2.  Exit. 


3.  All  other  classes  of  entries  encoxmtered  outside  of  bracketed 
expressions  cause  the  error  exit  to  be  taken. 


I 

I 
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27.  a.  Itaae  -  SSFRO 

b.  Description  -  This  procedure  recognizes  standard  subscript  expressions. 
(See  procedure  AHCHR  for  a  definition  of  standaird  subscript  expression.) 

c .  Parameters 

1.  Input 

1.  NSS  -  Specifies  the  SS  entry  associated  with  the  eiqpression. 

2 .  Output 

1.  STDI  -  Indicates  whether  the  esqpression  is  of  standard  fom. 

1  ■  standard  form 
0  >  non-standard  form 

2.  CCMl  -  Indicates  whether  the  expression  terminated  with  a 
' comma ' . 


1  ■  terminated  with  a  'cosma' 
0  B  teminated  with  a  non-com 


d. 

Local  items 

1. 

TSS 

e. 

Express  items 

1. 

POS 

k. 

ACTS  table  items 

2. 

ASPAC 

5. 

CAT  table  items 

3. 

SS  table  items 

f. 

Procedures  called 

1. 

ERBOR 

g- 

Used  by: 

1. 

ANCHR 

h. 

Operations 

1. 

If  the  first  entry  of  the  e^qpression  describes  a  bead  (CATC  EQ  16) 

1.  Set  STYFE  ■  1  for  bead 
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27.  h.  1.  2.  Exit. 

2.  Perfotm  a  rl£^t  scan  thru  the  e^qpression  examining  each  entry 
using  switch  CLSW. 

1.  Tor  entries  describing  constants  (CATC  EQ  3) 

1.  If  a  previous  constant  has  been  encountered  (SCKI  EQ  l) 
1.  Exit. 

2.  Set  SCKI  B  1. 

2.  For  entries  describing  simple  variables  (CATC  EQ  4) 

1.  If  a  previous  simple  variable  has  been  encountered  (SSVI 
EQ  1)  or  a  constant  (SCKI  EQ  l) 

1.  Exit. 

2.  Set  SSVI  =  1. 

3.  For  entries  describing  subscripted  variables  (CATC  EQ  9) 

1.  If  the  siibscripted  variable  thus  far  fits  one  of  the 
cannonlcal  forms 

1.  Set  STIPE  =  2. 

2.  Continue  as  a  variable  (h.2.2.1.) 

4.  For  entries  describing  subscripts  (CATC  EQ  7) 

1.  If  the  subscript  is  inactive  (ACTSS  NQ  l) 

1.  Output  error  #34. 

2.  Continue  as  a  variable  (h.2.2.1.) 

For  entries  describing  separators  (CATC  EQ  9) 

1.  If  the  sepeuiator  is  not  a  'comma* 

1.  Exit. 


2. 


Set  COMI  -  1. 
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I 

I 

I 

I 


27«  h.  2.  5.  3.  Continue  processing  as  a  ri^^t  bracket  h.2.6.3«l« 

6.  Bracketers  (CATC  EQ  lO)  are  analyzed  using  svitch  BRKStf. 

1.  Fbr  entries  describing  left  parenthesis  (CATF  EQ  O) 

1.  If  a  previous  left  parenthesis  has  been  encountered 
(SLPI  EQ  1) 

1.  Exit. 

2.  Set  SLPI  -  1. 

2.  for  entries  describing  ric^t  parenthesis  (CAST  EQ  l) 

1.  If  a  pirevious  rif^t  parenthesis  has  been  encountered 
(SRPI  EQ  1)  or  an  ABS  aodlfier  has  not  been  encountered 
(SAVI  NQ  1)  or  the  ABS  cannot  be  located  with  infor¬ 
mation  in  the  SS  entry 

1.  Exit. 

2.  Set  SRPI  «  1. 

3.  Pbr  entries  describing  a  ricd^t  bracket  (CATF  EQ  3) 

1.  If  a  rlc^t  parenthesis  has  been  encountered  (SRPI  EQ  l) 
and  no  ABS  modifier  (SAVI  EQ  O) 

1.  Exit. 

2.  Set  STDI  ■  1. 

3.  Set  POS  to  the  entry  last  examined. 

4.  Exit. 

7.  For  entries  describing  arithmetic  operators  (CATC  EQ  13) 

1.  If  the  operator  is  a  or  'unary  minus'  (CATF  EQ 

0,1.6) 

1.  If  a  previous  arithmetic  operator  has  been  encountered 
(Smi  EQ  1) 


1.  Exit. 
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1.  2.  Set  SFMI  -  1. 

2.  If  the  operator  is  'ABS* 

1.  If  a  previous  'ABS'  has  been  encountered  (SAVI  EQ  l) 
1.  Exit 

1.  Set  SAVI  >  1. 

2.  Set  AVFOS  «  entry  nunber  describing  the  ABS. 

For  all  other  entries 

1.  Set  STYPE  B  0  (arithaetic  expression). 

2.  Exit. 
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28.  a.  Naae  -  STLE 

b.  Description  -  Oils  procedure  ^nerates  a  label  IL  operand  entry 
(ILO  -  16). 

c .  Parameters 

1.  Input 

!•  PU  >  Specifies  the  type  of  label  to  be  put  into  the  entry. 

1  «  Generated  label 
0  >  Statement  label 

2.  PI2  -  Contains:  (l)  the  DICT  entry  number  of  the  label  if  PU 
EQ  0,  or  (2)  the  acttial  nuiri>er  of  the  generated  label  if 
PU  EQ  1. 

e.  Express  items 

1.  m 

2.  OLAY 

3.  SIND 

4.  IL  table  entries 

g.  Used  by: 

1.  MP 

2.  DBSIG 

3.  AHCHR 

h.  Operations 

1.  If  the  next  entry  in  the  IL  is  an  information  operator  entry 
(ILC  EQ  0,  ILO  EQ  34) 

1.  Increase  the  number  of  entries  in  the  IL  table  by  2  (so  that 
the  Information  entries  will  not  be  destroyed). 

2.  Make  up  an  IL  label  entry  having  ILO  ■  I6,  ILD  >  PU,  ILF  «  PI2. 

3>  If  the  type  of  label  is  statement  label  and  the  label  has  not 
been  used  in  a  svitch  (OLAY  EQ  O) 

1.  Set  SmD  >  1  (If  smD  is  still  set  to  1  at  the  end  of  the 

program,  there  have  been  only  forward  transfers  to  this  label.) 


I 
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29.  a.  iMe  -  wmn 


b.  OMcription  •  Ihla  paraeadim  optlaiias  tha  aaount  of  taaporary  atoraca 
rao^irad  by  tba  proeaduraa  of  a  profnai. 

e.  Faraaetars 


1.  Iiqput 

1.  AA  -  Spaelflaa  tba  typa  of  yroeaoaiBC  to  ba  dMM  by  WKII» 

1  ■  parfoxa  tba  proeaaaliif  raquirad  by  a  proeadura  call. 

2  >  parfoxa  tha  poroeasalag  raqulrad  at  tha  and  of  a 

proeadura  or  tha  Iff. 

3  ■  parfoxa  tha  proeaaaiac  raqgairad  at  tha  and  of  tha 

vtaola  progxaa. 

4  ■  parfoxa  tha  Initial  houaakaaptnf  for  tha  proeadura. 

d.  Local  itoM 


1. 

IXCP 

4. 

FUL  tab7«  itaao 

7. 

VIS 

2. 

ww 

5. 

LHC  tab  itaas 

8. 

IPHL 

3. 

FHS  tabla  itaas 

6. 

XLHC 

9. 

VCRT 

a.  ftQnreas  Itau 


1. 

PRCD 

4. 

!•««» 

2. 

NWS 

5. 

XNMS 

3. 

NAXWS 

6. 

7RB0N 

f.  Proeaduraa 

callad 

1.  PfOIT 

2.  BTOD 

3.  NTOI 

g.  Uaad  by: 

1.  HP 

2.  ARCHR 

h*  Oparatlona 

Kbta:  Oia  proeadura  builda  up  antriaa  in  a  tabla  apaelfying  tha 
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maxlimiia  amount  of  working  storage  required  each  time  a  procedure  call 
is  made  and  in  what  procedure  or  MP  the  call  was  made  from.  The  pro* 
cediure  then  performs  an  analysis  of  this  table  and  from  the  amo\mt  of 
working  storage  required  at  a  procedure  call  and  the  nesting  of  link¬ 
ing  of  calls  to  a  procedure  from  other  procedures,  detexmlnes  the 
minimum  amount  of  working  storage  required  by  a  given  procedure. 

29.  h.  1.  If  the  type  of  processing  is  'housekeeping*  (AA  EQ  4) 

1.  Clear  local  tables  auid  items. 

2.  Exit. 


2.  If  the  capacity  of  one  of  the  local  tables  has  been  exceeded 
(EXCP  EQ  1) 

1.  Exit. 

3.  Operate  the  switch  JOB  to  determine  the  type  of  processing  to  be 
performed. 

1.  If  the  type  of  processing  is  that  required  by  a  procedure 

call  (AA  EQ  l) 

1.  Adjust  the  amount  of  temporary  storage  by  2  (NOW  -  NWS-2} 
(temporary  storage  1  and  2  is  reserved  for  the  Translators 
therefore,  all  generator  assigned  temporary  storage  com¬ 
mences  with  3)> 

Note:  This  procedure  records  in  entries  of  the  LWC  table 
the  amount  of  working  storage  required  at  a  procedure 
call  and  from  what  procedure  or  MP  the  call  was  made. 

Since  the  procedure  is  only  interested  in  the  maximum 
amount  of  temporary  storage  for  a  procedxire,  it  only 
records  the  maximum  amount  of  temporary  storage  required 
by  the  several  calls  to  a  given  procedure  from  a  given 
procedure  or  MP,  i.e.,  if  ten  calls  to  the  same  procedure 
are  made  from  one  procedure,  only  that  call  requiring  the 
maximum  amount  of  temporary  storage  is  recorded  in  the 
LWC  table. 

2.  If  no  previous  entries  have  been  made  in  the  table  (NLWC 
EQ  0) 

1.  Continue  at  h.3*l*3*^*^* 

3*  Examine  the  other  entries  made  during  the  processizig  of 
the  current  procedure  or  MP. 
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29.  h.  3.  1.  3.  1.  If  there  were  no  previous  calls  made  during  the  current 

pirocedure  or  MP  (PROS  NQ  PROS) 

1.  If  making  a  nev  entry  will  exceed  the  capacity  of 
the  table 

1.  Output  an  error  message. 

2.  Set  EXCP  «  1  to  acknowledge  the  exceeding  of 
a  table. 

3.  Exit. 

2.  Make  an  entry  in  LWC  including:  the  DICT  entry 
number  of  the  procedure  being  called  (CAWL  >  CALL), 
the  DICT  entry  number  of  the  procedure  or  MP  being 
processed  (PROS  «  PRCD),  aiui  the  amount  of  working 
storage  (LOWS  »  NOW). 

3.  Exit. 

2.  If  a  similar  call  has  been  made  from  the  same  pro¬ 
cedure  or  MP  (CAWL  EQ  CALL) 

1.  If  a  larger  amoimt  of  temporary  storage  is  re¬ 
quired  by  this  latest  call  (NOW  GR  LOWS) 

1.  Substitute  the  current  amount  for  the  pre¬ 
ceding  amount  (LOWS  s  NOW). 

2.  Exit. 

2.  If  the  type  of  processing  is  that  required  at  the  end  of  pro¬ 
cedure  or  MP  (AA  EQ  2) 

1.  If  making  a  new  entry  in  the  PWS  table  will  exceed  its 
capacity 

1.  Outinit  an  error  message. 

2.  Set  EXCP  >  1  to  acknowledge  the  exceeding  of  the 
capacity. 

3.  Exit. 

2.  Make  an  entry  into  the  PWS  table  Including:  the  DICT 
entry  nuniber  of  the  procedure  or  MP  Just  processed 
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(FllON  -  FRCD)>  the  maxlmua  anount  of  vorking  storage  hy 
the  procedure  or  MP  Just  processed  (FRtfS  «  NAXlfS). 

29.  h.  3.  2.  3-  Exit. 

3.  If  the  type  of  processing  is  that  required  at  the  end  of  the 
whole  program  (AA  3) 

1.  If  there  are  no  entries  in  LWC  or  FWS  (NUfC  EQ  0  or  HFWS 

EQ  0) 

1.  Set  MAXlfS  FRWS. 

2.  Continue  at  h.3.3.7* 

2.  Link  the  entries  of  the  LWC  table  according  to  the  follow¬ 
ing  method: 

1.  Locate  the  first  entry  recorded  for  a  given  procedure 
(PROS  NQ  PROS  -1). 

2.  Enter  in  LOCA  the  nundser  of  the  first  entry  (located 
above  1.)  in  each  entry  specifying  a  call  to  that 
procedure  (CAWL  EQ  PROS). 

3.  Link  the  entries  of  the  FWS  table  to  the  entries  of  the 
LWC  table  according  to  the  following  method: 

1.  Enter  in  LOPR  the  PWS  entry  number  of  the  entry 
describing  the  procedure  which  was  called  in  LWC 
(CAWL  EQ  FRON). 

4.  Through  an  analysis  of  the  linking  of  the  procedures;  the 
minimum  amount  of  tenqporary  storage  required  by  each  pro¬ 
cedure  is  determined.  During  the  analysis;  item  WORT  is 
used  to  keep  a  running  level  of  temporary  storage  at  a 
given  level  of  nesting  of  procedures.  Table  PRL  is  xised 
in  a  push-down  manner  to  regulate  the  processing  of  the 
different  calls  made  from  a  procedure  at  a  given  level 

of  nesting.  A  discussion  of  the  processing  is  presented 
below  using  abbreviated  LWS  and  FWS  tables. 
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LWS  Table  FHS  Table 


Bntry  # 

PROS 

CAWL 

LOCA 

LOPR 

LOWS 

PRON 

SLWS 

1 

MP 

PI 

4 

2 

4 

MP 

2 

MP 

F2 

6 

3 

2 

PI 

4 

3 

MP 

P3 

- 

4 

7 

P2 

5 

4 

PI 

P2 

6 

3 

1 

P3 

7 

5 

PI 

P4 

- 

5 

7 

P4 

11 

6 

P2 

P4 

- 

5 

5 

The  calls  are  considered  in  the  order  in  which  they  were 
made.  Since  the  linkage  of  a  given  call  is  exhausted 
before  the  next  call  is  considered,  it  is  only  necessary 
to  examine  the  calls  made  from  the  MP. 

29.  h.  3*  3*  1*  MP  caUs  PI. 


1.  Starting  level  of  temporary  storage  (SIMS)  for 
PI  >  the  level  of  temporary  storage  needed 
when  the  call  was  Invoked  (LOWS)  s  U. 

2.  PI  calls  P2. 

1.  SLWS  for  F2  »  the  level  when  Invoked 
(LOWS)  +  SLWS  of  PI  -  1+4  -  5- 

2.  P2  calls  P4. 

1.  SLWS  for  P4  s  level  when  invoked 
(LOWS)  +  SLWS  of  P2  =  5+5  »  10- 

2.  No  calls  made  in  P4. 

3.  F2  calls  exhausted. 

3.  PI  calls  P4. 

1.  SLWS  for  P4  »  level  when  invoked  (LOWS)  + 
SLWS  of  PI  ■  7+4  ■  11;  previous  SLWS  for 
P4  was  10;  substitute  new  SLWS  for  old 
(new  SLWS  OR  old  SLWS). 


2. 


No  calls  made  in  P4. 
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k.  1.  4.  PI  calls  exhaxuted. 

2.  NP  caUs  P2. 

1.  Calculated  value  not  higher,  so  keep  old  SUfS 
for  P2  -  5* 

2.  P2  calls  P4. 

1.  SLVS  for  P4  -  5*5  -  10  as  before. 

2.  No  calls  made  in  P4. 

3*  P2  calls  e:diausted. 

3.  MP  caUs  P3. 

1.  SLWS  for  P3  ■  level  when  Invoked  (LOWS)  >  7> 

2.  No  calls  made  in  P3. 

4.  MP  calls  exhausted. 

5-  If  the  procedures  are  used  recursively  (one  procedure 
calls  a  second  vhich  calls  the  first)  indicated  by 
the  nesting  level  exceeding  20. 

1.  Output  an  error  message. 

2.  Output  the  order  of  linkage. 

3.  Exit. 

6.  If  there  was  at  least  one  procedure  in  the  program 

1.  If  a.  list  of  the  working  storage  levels  is  requested 
(PRST  EQ  1) 

1.  Output  the  heading. 

2.  Set  TRECOf  >  SLWS  of  each  procedure. 

3 .  If  the  amount  of  temporary  storage  required  by  a 
procedure  its  starting  level  exceeds  the  total 
required  by  the  whole  program  (SLWS  PBWS  GB  MAXWS) 

1.  Set  MAXWS  -  SLWS  +  PRWS. 
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.  6.  4.  Output  the  amount  of  temporary  storage  for  each  pro- 

cedxire  if  requested  (ffiST  EQ  l). 

?•  If  the  amount  of  toaporary  storage  for  the  MP  exceeds  that 
for  any  procedure  (PRtfS  CBt  MAXMS) 

1.  Set  MAXWS  »  FRWS. 

8.  Adjust  the  amount  of  temporary  storaM  by  3  to  account 
for  'result'  (temporary  storage  of  0;  and  the  2  req]uired 
by  the  Translators  (MAXWS  >  MAXHS+3)* 

9.  Set  N'TREG  >  MAXWS. 

10.  Output  the  total  amount  of  temporary  storage  if  requested 
(PSRT  EQ  1). 


11. 


Exit. 
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30.  a.  Name  -  XFKFT 

b.  Deacri^ion  -  This  procedure  detexnines  the  linkage  (via  transfer 
points)  necessaxy  in  exq^ssions  involving  relational  operators,  and 
adjusts  Hi  operators  and  generates  labels  to  effect  the  necessary 
linkage.  (See  SP-127,  page  7«) 

c .  Parameters 

1.  Input 

1.  LLOC  -  Specifies  ^e  CAT  table  entry  last  located  by  procedure 
liLOC  (if  UiOC  is  less  than  FIRST,  the  procedure  is  operating 
within  a  relational  statement;  if  LLOC  is  greater  than  FIRST, 
the  procedure  is  jarocessing  a  Boolean  assignment  statement). 

2.  RRLOC  -  Specifies  the  CAT  table  entry  of  the  last  determined 
' anchor- point ' . 

3.  ILFOS  -  Specifies  the  IL  table  entry  of  the  last  relational 
operator  entered  into  the  IL. 

4.  RELAD  -  Indicates  whether  the  'anchor- point'  is  a  relational 
or  a  logical  operator. 

1  B  relational 
0  s  logical 

2 .  Output 

1.  XXX  -  error  exit 


d.  Local  items 

1.  RLOC 

2.  OPIRM 

3.  OPLVL 

e.  Express  items 


1. 

LAST 

4. 

FTP 

7. 

XL  table  items 

2. 

mSR 

5. 

ATTP 

8. 

CAT  table  items 

3. 

TTP 

6. 

APTP 

Procedures  called 


1.  ERROR 


f. 
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30.  g.  Used  by: 

1.  ANCHR 
h .  Operations 

1.  If  the  'anchor- point'  is  an  end-of- statement  (LAST  LS  RRLOC) 

1.  If  processing  a  normal  relational  (LLOC  LS  FIRST) 

1.  Generate  a  false  transfer  point  label  if  there  was  not 
one  generated  earlier  (FTP  EQ  O). 

2.  Enter  the  fcdse  transfer  point  label  into  the  transfer 
point  of  the  entry  specified  in  ILPOS. 

3.  Complement  the  operator  specified  in  ILPOS. 

4.  Exit. 

2.  If  processing  a  Boolean  assignment  (LLOC  (St  FIRST) 

1.  Continue  processing  at  h. 1.1.1.,  except  use  the  altexmate 
false  transfer  point  (AfTP)  Instead  of  the  false  transfer 
point  (ftp). 

2.  Set  OPFBM  to  the  type  of  operator  described  in  the  entry  specified 
by  RRLOC. 

1.  If  the  'anchor- point'  describes  a  relational  operator  (RELAD 
EQ  1). 

1.  OPFRM  is  set  from  CATA  rather  than  from  CATF. 

3.  Set  OPLVL  to  the  level  (CATE)  of  the  operator  described  in  the 
entry  specified  by  RRLOC. 

1.  If  the  'anchor- point'  describes  a  relatloned  operator  (RELAD 
EQ  1) 

1.  Set  OPLVL  to  the  level  -1  (converts  the  relational  level 
to  a  logical  level). 

4.  Perform  a  rlc^t  (forward)  scan  thru  the  e:qpresslon  commencing  at 
the  entry  specified  in  RRLOC  +1. 

1.  If  the  end-of- statement  is  encountered  (RLOC  OR  LAST) 
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30.  h.  4.  1.  1.  If  prccessing  a  normal  relational  statement  (LLOC  LS  FIRST) 

1.  If  the  type  of  logical  operator  is  AND  (OFFBM  EQ  O) 

1.  Proceed  at  h.l. 

2.  If  the  type  of  logical  operator  is  OR  (OFFRM  EQ  l) 

1.  Generate  a  true  transfer  point  label  if  one  has 
not  been  previously  generated  (TIP  EQ  O). 

2.  Enter  the  true  transfer  point  label  into  the 
transfer  point  of  the  IL  entry  specified  by  ILPOS. 

3*  Exit. 

2.  If  processing  a  Boolean  assignment  statement  (LLOC  CSt  FIRST) 

1.  If  the  type  of  logical  operator  is  AND  (OPFRM  EQ  O) 

1.  Proceed  at  h.l. 2. 

2.  If  the  type  of  logical  operator  is  OR  (OPFRM  EQ  l) 

1.  Proceed  at  h. 4. 1.1. 2.  except  use  the  alternate 
true  tztmsfer  point  (ATTP)  instead  of  the  true 
transfer  point  (TTP). 

2.  If  the  'anchor- point*  is  a  relationcQ.  operator  (RELAD  EQ  l) 

1.  If  a  relational  operator  is  encountered  in  the  scan  vhich 
has  a  level  less  than  that  of  the  'anchor-point'  (CATE  LS 
OPLVL) 

1.  Set  OPLVL  to  the  level  (CATE)  of  the  relational  oper¬ 
ator  Just  encountered. 

3.  If  the  scan  enco\mters  a  logical  operator  which  has  a  level 
less  than  that  of  the  'anchor-point'  (CATE  LS  OPLVL) 

1.  If  the  logical  operator  thus  encountered  is  of  the  same 
type  as  the  'anchor-point'  (CATF  EQ  OPIRM) 

1.  Set  OPLVL  »  CATE 


2.  Continue  the  scan. 
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30.  h.  4.  3*  2.  If  the  logical  operator  thvis  encountered  is  not  of  the 

same  type  as  the  'anchor-point'  (CATF  NQ  OFfRC) 

1.  If  the  class  (CATC)  of  the  succeeding  entry  is  0 
(there  was  no  label  previously  assigned  to  this 
operator) 

1.  Generate  a  label  and  enter  it  in  the  next  CAT 
table  entry. 

2.  Enter  the  label  described  in  the  next  CAT  thble  entry 
in  the  transfer  point  (ILF)  of  the  IL  entry  specified 
by  ILPOS. 

3.  If  the  'anchor-point*  entry  described  an  AND  operator 
(CATF  EQ  0) 

1.  Complement  the  relational  operator  included  in  the 
IL  entry  specified  by  ILPOS. 

4.  Exit. 
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ERROR  MBSSAOB  EBSCRIPnON 
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101  -  The  statement  commences  with  an  Illegal  part  of  speech.  In  particular, 

the  statement  commenced  with  either  a  constant,  logical  operator,  rela¬ 
tional  operator  or  arithmetic  operator. 

Detected  by:  MP  In  region  NEXT. 

102  -  nie  FOR  statement  to  Initialize  a  given  subscript  is  encountered  in  the 

range  of  a  FOR  statement  vhlch  previously  Initialized  the  same  subscript. 
Detected  by:  MP  in  region  L084. 

103  -  nie  2  or  3  factor  FOR  statement  is  not  terminated  by  a  $. 

Detected  by:  MP  in  region  L084. 

104  -  An  eoqpresslon  of  the  statement  was  examined  vhlch  contained  an  odd  num¬ 

ber  of  parenthesis  or  brackets  or  which  was  not  terminated  by  a  comma 
or  $. 

Detected  by:  FACT  or  LNGTH. 

103  >  The  TEST  statement  Is  used  outside  the  range  of  any  FOR  statement. 
Detected  by:  MP  in  region  LO87. 

106  -  The  TEST  statement  specifies  a  subscript  activated  by  an  ' incon^plete ' 

FOR  statement. 

Detected  by:  MP  in  region  LO87. 

107  -  The  TEffT  &  tement  is  used  only  in  the  range  of  an  'incomplete*  FOR 

statement . 

Detected  by:  MP  in  region  DO87. 

108  -  An  inactive  subscript  was  specified  by  the  TEST  statement. 

Detected  by:  MP  in  region  L087. 

109  -  An  odd  number  of  BEGINS  or  ENDs  was  discovered  at  the  end  of  the  program. 

Specifically,  not  enough  ENDs  were  encountered  to  match  the  BEGINS. 
Detected  by:  MP  in  region  LIO7. 

110  -  A  non- label  was  encountered  as  a  switch  point  in  a  switch  declaration  or 

as  the  object  of  a  GOTO  statement. 

111  -  A  procedure  was  encountered  as  a  switch  point "in  a  .sVltCh  declaration  or 

as  the  object  of  a  GOTO  statement. 

Detected  by:  Procedure  DESIG. 

112  -  A  declaration  other  than  a  switch,  close  or  procedure  was  encountered 

by  Gen2.  (Genl  is  supposed  to  process  all  declarations  other  than  those 
mentioned) . 

Detected  by:  MP  in  region  Ll4. 
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113  -  The  etateaent  conaenced  with  a  separator  other  than  a  (A  dunay  state¬ 
ment  conqposed  of  Just  a  $  represents  the  only  separator  which  aen2  nay 
eneoiuiter  outside  of  statemoits). 

Detected  by:  MP  in  region  L09« 

UU  -  The  relational  operator  'EQ*  is  used  In  place  of  an  in  an  assignment 
statement,  or  else  an  IF,  IFEITH,  or  ORIF  operator  is  missing  from  a 
relational  statement. 

Detected  by:  MP  in  region  L02. 

113  -  The  separator  was  iised  in  place  of  an  'BQ*  in  a  relational  statesmit 

or  else  a  Boolean  variable  \fas  used  in  an  arithiMtic  e:qpresslon. 

Detected  by:  MP  in  region  LO80. 

116  -  An  inactive  subscript  was  specified  as  a  factor  in  the  FOR  statement. 

Detected  by:  Procedure  FACT. 

117  ~  An  odd  nuniber  of  BEGINS  or  ENDs  was  discovered  in  the  program.  Specifi¬ 

cally,  too  maxiy  EUDs  were  encountered  to  match  the  BEGINS. 

Detected  by:  MP  in  region  I<10$. 

llB  -  Some  form  of  error  was  encountered  in  the  analysis  of  a  FOR  factor.  See 
a  previous  error  message  for  the  specific  error  discovered. 

Detected  by:  MP  in  region  L084. 

119  -  An  expression,  rather  than  a  whole  statement,  was  encountered.  Exaqple: 

AA+BB/CC  $,  rather  than  EE  ■  AA^EB/CC  $. 

Detected  by:  MP  in  region  L02. 

120  -  An  odd  number  of  BEOINs  or  ENDs  was  discovered  in  the  program  upon  com¬ 

mencing  this  procedure.  Specifically,  too  many  BEGINS  were  encountered 
to  match  the  ENDs .  Check  the  BEGINS  or  ENDs  in  the  preceding  procedure 
or  MP. 

Detected  by:  MP  in  region  of  LlU. 

121  -  A  bracketer  has  been  used  illegally  in  the  statement.  Specifically, 

either  the  statement  commences  with  a  parenthesis  or  bracket,  a  BEGIN, 
END,  START,  or  TERM  is  located  within  the  statonent. 

Detected  by:  MP  in  region  LIO,  Procedure  SSPRO. 

122  -  Due  to  an  excessive  number  of  FOR  statements  in  the  ]^gram  the  capacity 

of  an  internal  table  of  the  generator  has  been  exceeded.  (SRT  table). 

MP  in  region  L084. 

F'.ii't'y,  <5 

124  -  (Not  used) 
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123  >  An  Illegal  peurt  of  siteech  %m8  encountered  while  processing  this  statoent* 
Most  likely  this  was  caxised  hy  a  missing  $  or  previous  error  which  caused 
part  of  a  statement  to  be  eliminated.  Specifically ^  a  hB01N>  00)^  SISART, 
or  TERM  bracketer  was  encountered  within  a  statement >  or  a  declaration, 
l/O  operator  or  direct  code  operator  was  encountered  within  a  statesient. 
Detected  by:  ANCHR  in  the  level  assignment  phase,  SSFBO. 

126  -  Succeeding  operators  were  encountered  in  the  statemmit.  Specifically, 

the  operators  were  encountered  succeeding  another  operator.  (Con¬ 

versely,  .an  operand  is  missing  frcmi  the  statement). 

Detected  by:  ANCHR  in  the  level  assignment  phase. 

127  -  A  Boolean  variable  was  used  illegally  in  the  statement.  Specifically,  the 

variable  was  used  in  an  arithmetic  esqpression  rather  than  a  logical  e:qpres' 
sion. 

Detected  by:  ANCHR  in  the  level  assignment  phase  while  using  procedures 
SRCHL  and  SRGHR. 

128  -  An  odd  number  of  parenthesis  or  brackets  was  encountered  in  the  statement. 

Detected  by:  ANCHR  in  the  level  analysis  phase. 

129  -  An  absolute  value  modifier  or  a  unary  minus  was  vised  illegally  in  the 

statement.  The  generator  was  unable  to  determine  the  object  of  the 
absolute  value  modifier  or  the  unary  minus. 

Detected  by:  ANCHR  in  the  level  analysis  phase. 

130  -  The  absolute  value  of  a  bead  expression  was  encountered  in  the  statement. 

Example:  ABS  (BYTE  [a,b]  (iTQf’NAME)) 

Detected  by:  ANCHR  in  the  level  analysis  phase. 

131  -  An  exchange  operator,  was  encountered  in  a  statement  which  was 

probably  meant  to  be  a  Boolean  assignment  (“)  statement . 

Detected  by:  ANCHR  in  the  level  analysis  phase  and  XFRFT. 

132  -  An  undetermined  error  was  encountered  in  the  statement.  The  error  is 

probably  due  to  a  missing  $  which  causes  a  part  of  speech  to  be  used 
Illegally. 

Detected  by:  ANCHR  in  the  level  analysis  phase  and  by  PUTIN  and  BDSV. 

133  "  A  procedure  was  used  as  a  function  in  the  statement. 

Detected  by:  ANCHR  in  the  aneQ.ysis  phase. 

134  -  A  subscript  was  used  outside  of  the  range  of  its  activating  FOR  statement. 

Detected  by:  ANCHR  in  the  analysis  phase  and  in  SSFRO. 

135  “  One  of  the  left  operands  for  an  operator  in  the  statement  could  not  be 

located.  The  operand  was  probably  in  the  beaded  variable  of  a  bead 
expression. 

Detected  by:  FOSOD. 


-»  \l 
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136  -  An  excessive  nunAier  of  coonas  vas  encountered  in  a  bead  expression. 

ixaogple:  (ITEM'KAIC) 

Detected  by:  a>^. 

137  *  An  illegal  part  of  speech  vas  encountered  within  a  subscript  expression. 

Detected  by:  SSPRO. 

138  -  A  non-Boolean  item  vas  encountered  posing  as  a  Boolean  item  in  a  relational 

statement. 

Detected  by:  IP  in  region  LO8O. 

139  -  200  errors  detected  by  Gen2.  Coopilatlon  terminated. 

140  -  The  number  of  procedure  calls  exceeds  the  capacity  permitted  by  the 

generator . 

141  -  The  nuoiber  of  procedure  declarations  exceeds  tbe  capacity  of  the  generator. 
11(2  -  Procedures  in  the  program  were  used  recursively. 


i  t. 
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Note:  StateoMnbs  are  exaadned  ty  procedure  ANCBR  for  an  aperand-apez«tor* 

operand-operator...  pattern.  Braeketers  and  separators  are  determined 
from  context  to  be  either  operands^  operators  or  null.  Errors  I50, 

151>  153»  19^  are  produced  vhen  a  break  is  encountered  in  this  pattern. 

1^0  -  Vhile  expecting  an  operand  in  the  operand- operator  pattern,  an  operator 
was  encountered  (succeeding  operators).  Specifically  a  sequential 
operator,  declaration,  input/output  coanand  or  a  BOIN,  END,  SIERT  or 
lEBN  bracketer  vas  encountered  within  the  statement. 

Detected  by:  Procedure  ANCSR. 

1^1  -  While  expecting  an  operand  in  the  operand-operator  pattern,  an  operator 
was  encountered  (succeeding  operators).  Specifically,  a  separator, 
logical  operator,  relational  operator,  arlthnetlc  operator  (*  or  /)  or 
a  subscript  bracket  or  odd  parenthesis  was  encountered  within  the  state¬ 
ment. 

Detected  by;  Procedure  AMCBR. 

1^3  -  While  expecting  an  operator  in  the  omrand-operator  pattern,  an  operand 
was  encountered  (succeeding  operands).  Specifically,  a  constant,  odd 
parenthesis,  luiaiy  minus  or  absolute  value  was  encountered  within  the 
statement. 

Detected  by:  Procedure  ANCBR. 

15^  '  While  e:q)ectlng  an  operator  in  the  operand-operator  pattern,  an  operud  was 
encountered  ( succeeding  operands  probably  caused  by  a  missi^  dollar  sign) . 
Specifically,  a  statement  label,  file,  item,  procedure,  subscript,  seq^iential 
operator,  declaration.  Input/ output  coonand,  blt/byte,  direct  code,  direct 
assign  or  a  SBQIN,  END,  SXART,  QHN  bracketer  was  encountered. 

Detected  by:  Procedure  ANCHR. 


UBQLABSirilD 


SystMi  DrralopMit  Oorpoxmtloii, 

Saata  Noaiea,  Oalifonla 
JOVIAL  OBHRAXOR  DBSGRZPnO*. 

Selastifle  rapt.,  Xlf-;$5/0eo/OO,  hr 
V.  L.  Coban,  N.  H.  Farataln. 

10  July  1962,  293p* 

Itaelaaalflad  laport 

mCRIFTOBS:  Digital  Coaputars.  Na^na 
nrMMlatioB. 

Idantifiara:  JOVIAL. 

Daaeribes  Ihaaa  1  and  Ihaaa  2  of  'ttia  JOVIAL 
Qaaarator.  Statas  that  a  ooapilar  la  a 


prograa  vhloh  txaaalatas  a  hi|^r 
lafal  laaguaga  callad  tha  soaroa 
language,  in  which  tha  aolutlon  to 
a  prohlaa  is  arprassad,  into  a  aachlna 
code  representation  of  this  solution 
called  tha  oh.jact  or  targat  language. 
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S!]rtt«i  DvwlopMMit  Cocpoimtloni 
State  Naalet,  Oalifflandt 
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hy  N.  E.  Farttein. 
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OBSCRIFTORS:  Digltel  Coagputert. 

Ntehlat  Trtatlttlon. 


Idtntiflers:  JOVIAL. 
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IS8CRIFT0B8:  Digital  Cooputars. 

Machine  Translation. 
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